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.
Spar dig selv for besvær og kom igennem din to-do liste i dag
1
Beskriv din opgave
2
Modtag bud
3
Få løst din opgave
Møbelsamling
Hjælp med at samle Ikea klædeskab
Maler
Klargøring af lejlighed til flyttesyn
Flyttehjælp
Flytning af 150 kvm hus til Roskilde fra København
Havearbejde
Beskæring af 4 større træer
IT support
Geninstallering af windows + programmer
Elektriker
Installation af Sonos musikanlæg i hus
Rengøring
Ugentlig rengøring af lejlighed (114kvm)
Flyttehjælp
Flytning af 150 kvm hus til Roskilde fra København
Elektriker
Opsætning af lamper i stue og soveværelse
Catering
3-retters menu til 14 mennesker