Visual Basic宏电子邮件地址

Question

我对VB脚本没有任何了解。基本上我想从电子邮件下载附件，然后将其保存到位置文件夹，其中包含日期戳，发件人姓名和发件人电子邮件作为文件名。 我找到了一个我玩过的剧本。现在，除了电子邮件地址，我还能够提取并保存文件。 我真的想要这个电子邮件地址。 以下是剧本。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim Space
Space = " "
Dim SenderName
SenderName = Format(itm.SenderName)
Dim dateFormat
dateFormat = Format(itm.ReceivedTime, "mm-dd H-mm-ss")
saveFolder = "C:\temp"
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Then
objAtt.SaveAsFile saveFolder & "\" & dateFormat & Space & SenderName & Space &     objAtt.DisplayName
End If
objAtt.Delete
Set objAtt = Nothing
Next
End Sub

Answer 1

就像附件一样，电子邮件地址是传递到子例程中的Outlook.MailItem的属性。您可以在MailItem界面here上看到可用的属性。您可以在现有代码中添加以下内容：

objAtt.SaveAsFile saveFolder & "\" & dateFormat & Space & SenderName & Space & itm.SenderEmailAddress & Space & objAtt.DisplayName

这使您可以像访问其SenderName一样访问MailItem的SenderEmailAddress字段。