At eksportere en liste over e-mailadresser fra tidligere sendte mails uden brug af et add-in kan være en udfordring, men det er muligt. Her er nogle metoder og værktøjer, der kan hjælpe:
Sub ExportEmailAddresses()
Dim olApp As Outlook.Application
Dim olNamespace As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olMail As Outlook.MailItem
Dim olRecipient As Outlook.Recipient
Dim i As Integer
Dim emailList As String
Set olApp = Outlook.Application
Set olNamespace = olApp.GetNamespace("MAPI")
Set olFolder = olNamespace.GetDefaultFolder(olFolderSentMail)
For Each olMail In olFolder.Items
If olMail.Class = olMail Then
For i = 1 To olMail.Recipients.Count
Set olRecipient = olMail.Recipients(i)
emailList = emailList & olRecipient.Address & vbCrLf
Next i
End If
Next olMail
' Output email addresses to a text file
Dim fso As Object
Dim txtFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.CreateTextFile("C:\email_addresses.txt", True)
txtFile.Write emailList
txtFile.Close
MsgBox "Email addresses exported successfully!"
End Sub
Der findes også eksterne apps og værktøjer, der kan hjælpe med at eksportere e-mailadresser fra tidligere sendte mails uden for Outlook:
Ved at bruge en af disse metoder eller værktøjer kan du effektivt eksportere en liste over e-mailadresser fra tidligere sendte mails uden brug af et add-in.
Har du brug for hjælp til e-mailhåndtering eller Outlook-opgaver? Med Handyhand kan du nemt oprette din opgave gratis og få bud fra kvalificerede hjælpere på få minutter. Gør din hverdag lettere ved at få professionel assistance til dine digitale opgaver.