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.