如何使用 vba 宏从 Outlook 中获取 From 字段答案

【问题标题】：How to get From field from Outlook using vba macro如何使用 vba 宏从 Outlook 中获取 From 字段
【发布时间】：2013-01-09 04:03:59
【问题描述】：

我正在编写宏，它将在选择“发件人”字段或例如单击回复后设置签名。我的问题是我不知道如何获取 From 字段值。我知道如何设置这个字段。

Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

Function GetSignature(Mailbox As String) As String
   Dim Signature As String
   Dim SigStringPL As String
   Dim SigStringUK As String
    SigStringPL = Environ("appdata") & _
                  "\Microsoft\Signatures\Poland.htm"

    SigStringUK = Environ("appdata") & _
                  "\Microsoft\Signatures\United Kingdom.htm"

    If Mailbox = "poland@poland.pl" Then
        If Dir(SigStringPL) <> "" Then
            GetSignature = GetBoiler(SigStringPL)
        Else
            GetSignature = ""
        End If
    Else
        If Dir(SigStringUK) <> "" Then
            GetSignature = GetBoiler(SigStringUK)
        Else
            GetSignature = ""
        End If
    End If
End Function


Sub Mail_Outlook_With_Signature_Plain()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Dim Signature As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "content"    


    Signature = GetSignature("erni@erni.pl")
    MsgBox (OutMail.SentOnBehalfOfName)

        On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .subject = "This is the Subject line"
        .HTMLBody = strbody & "<br><br>" & Signature
        'You can add files also like this
        '.Attachments.Add ("C:\test.txt")
        .Display
    End With


    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

问候，厄尼

【问题讨论】：

试试：oMyItem.SentOnBehalfOfName = "myself@here"
可以参考stackoverflow.com/questions/10528075/…的回答
好的，但这是设置 from 字段的值。我需要从字段中获取值。
您想从您刚刚创建的邮件项中获取“发件人”字段吗？
例如当我点击回复时，我想从字段中获取（我有 3 个不同的邮件地址和三个不同的签名）当我从我想要的第一个地址回复时，例如第一个签名。所以我需要获取 from 字段值。

标签： vba outlook-2010

【解决方案1】：

SenderName 是“发件人”字段的字段名称。

【讨论】：

【解决方案2】：

发件人是 SentOnBehalfOfName。在正常使用中，在物品发送之前它是空的。

不要手动选择发件人。

Sub replySentOnBehalf()

Dim objMsg As mailitem

Set objMsg = ActiveInspector.currentItem.reply
objMsg.SentOnBehalfOfName = "someone@somewhere.com"

' Now that objMsg.SentOnBehalfOfName is available run your code

objMsg.Display

Set objMsg = Nothing

End Sub

【讨论】：