通过VBA在撰写模式下返回outlook上的发件人/发件人地址

在撰写模式下，通过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获取发件人地址。最后，可以通过调试窗口输出或者其他方式展示发件人和发件人地址。

这个功能在以下场景中可能会有用：

1. 自动填写发件人信息：可以在撰写邮件时，自动填写发件人的姓名和地址，提高工作效率。
2. 邮件分类和处理：可以根据发件人的姓名或地址，对邮件进行分类、过滤或其他处理操作。
3. 邮件审计和追踪：可以记录发件人的姓名和地址，用于后续的审计和追踪工作。

腾讯云相关产品和产品介绍链接地址：

1. 云服务器（CVM）：提供可扩展的计算能力，满足不同规模和需求的业务。产品介绍链接
2. 云数据库 MySQL 版（CDB）：提供稳定可靠的云端数据库服务，支持高可用、备份恢复、性能优化等功能。产品介绍链接
3. 云存储（COS）：提供安全可靠的对象存储服务，适用于图片、音视频、文档等各类数据的存储和管理。产品介绍链接
4. 人工智能平台（AI Lab）：提供丰富的人工智能服务和开发工具，包括图像识别、语音识别、自然语言处理等。产品介绍链接
5. 物联网开发平台（IoT Explorer）：提供全面的物联网解决方案，支持设备接入、数据采集、远程控制等功能。产品介绍链接

请注意，以上链接仅供参考，具体产品选择应根据实际需求进行评估和决策。