Как получить поле From из Outlook с помощью макроса vba

Я пишу макрос, который будет устанавливать подпись после выбора поля «От» или, например, нажатия кнопки «Ответить». Моя проблема в том, что я не знаю, как получить значение поля 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 = "[email protected]" 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("[email protected]")
    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

С уважением, Эрни


vba outlook-2010
person erni    schedule 25.01.2013    source источник
comment
Попробуйте: oMyItem.SentOnBehalfOfName = "myself@here"   -  person Larry    schedule 25.01.2013
comment
вы можете обратиться к stackoverflow.com/questions/10528075/ ответ   -  person Larry    schedule 25.01.2013
comment
Хорошо, но это установка значения поля from. Мне нужно получить значение из поля.   -  person erni    schedule 25.01.2013
comment
Вы хотите получить поле from из только что созданного почтового элемента?   -  person Larry    schedule 25.01.2013
comment
например когда я нажимаю «Ответить», я хочу получить из поля (у меня 3 разных почтовых адреса и три разные подписи), когда я отвечаю с первого адреса, я хочу, например, первую подпись. Поэтому мне нужно получить значение поля from.   -  person erni    schedule 25.01.2013
comment
Лично у меня в Outlook не настроено несколько учетных записей. Но, может быть, вы можете попробовать SenderUsingAccount SenderEmailAddress SenderName свойства   -  person Larry    schedule 25.01.2013

Ответы (2)


arrow_upward
0
arrow_downward

SenderName — это имя поля для поля «От».

person ksp585    schedule 20.01.2015

arrow_upward
0
arrow_downward

От — SentOnBehalfOfName. При обычном использовании он пуст до тех пор, пока элемент не будет отправлен.

Не выбирайте От вручную.

Sub replySentOnBehalf()

Dim objMsg As mailitem

Set objMsg = ActiveInspector.currentItem.reply
objMsg.SentOnBehalfOfName = "[email protected]"

' Now that objMsg.SentOnBehalfOfName is available run your code

objMsg.Display

Set objMsg = Nothing

End Sub
person niton    schedule 21.01.2015