在撰写模式下,通过VBA可以使用以下代码返回Outlook上的发件人和发件人地址:
Sub GetSenderInfo()
Dim objMail As Outlook.MailItem
Dim strSender As String
Dim strSenderAddress As String
' 获取当前撰写的邮件对象
Set objMail = Application.ActiveInspector.CurrentItem
' 检查邮件对象是否为邮件
If objMail.Class = olMail Then
' 获取发件人姓名
strSender = objMail.SenderName
' 获取发件人地址
strSenderAddress = objMail.SenderEmailAddress
' 在调试窗口中输出发件人和发件人地址
Debug.Print "发件人: " & strSender
Debug.Print "发件人地址: " & strSenderAddress
Else
MsgBox "当前对象不是邮件。"
End If
' 释放对象
Set objMail = Nothing
End Sub
这段VBA代码可以通过Application.ActiveInspector.CurrentItem
获取当前撰写的邮件对象,然后使用objMail.SenderName
获取发件人姓名,使用objMail.SenderEmailAddress
获取发件人地址。最后,可以通过调试窗口输出或者其他方式展示发件人和发件人地址。
这个功能在以下场景中可能会有用:
腾讯云相关产品和产品介绍链接地址:
请注意,以上链接仅供参考,具体产品选择应根据实际需求进行评估和决策。
领取专属 10元无门槛券
手把手带您无忧上云