извлечь адрес электронной почты из внешнего вида
Я пытаюсь извлечь адреса электронной почты из всех писем в моем почтовом ящике Outlook. Я нашел этот код в интернете.
Sub GetALLEmailAddresses()
Dim objFolder As MAPIFolder
Dim strEmail As String
Dim strEmails As String
''' Requires reference to Microsoft Scripting Runtime
Dim dic As New Dictionary
Dim objItem As Object
''Set objFolder = Application.ActiveExplorer.Selection
Set objFolder = Application.GetNamespace("Mapi").PickFolder
For Each objItem In objFolder.Items
If objItem.Class = olMail Then
strEmail = objItem.SenderEmailAddress
If Not dic.Exists(strEmail) Then
strEmails = strEmails + strEmail + vbCrLf
dic.Add strEmail, ""
End If
Я использую outlook 2007. Когда я запускаю этот код из редактора Outlook Visual Basic с помощью F5, я получаю сообщение об ошибке в следующей строке.
Dim dic As New Dictionary
"user defined type not defined"