Excel VBA: групповая подпись - PullRequest
Новая
       16

Excel VBA: групповая подпись

0 голосов
/ 02 апреля 2020

В настоящее время я работаю над макросом для автоматизации почтового сообщения через Groupwise. Я отправляю электронное письмо, используя следующий код 

Public gwapp As GroupwareTypeLibrary.Application, gwmessage As GroupwareTypeLibrary.Message, gwaccount As GroupwareTypeLibrary.Account, gwrecipient As GroupwareTypeLibrary.Recipient
Sub VersturenEmail()
    Set gwapp = New GroupwareTypeLibrary.Application
    Set gwaccount = gwapp.Login()
    Dim gwattach1 As String
    Dim gwattach2 As String

    gwattach1 = Range("B23").Value
    gwattach2 = Range("B24").Value


    Dim myCell As Range

    Worksheets("STAM-Filialen").Activate
    For Each myCell In ThisWorkbook.Worksheets("STAM-Filialen").Range("A2:A2").Cells 
        Dim wksName As String
        Set gwmessage = gwaccount.MailBox.Messages.Add
        wksName = myCell.Value

        Worksheets("HOME").Activate
        Range("B5").FormulaR1C1 = wksName

        With gwmessage
            .Subject = Range("B8").Value
            .BodyText = Range("B11").Value & vbNewLine & vbNewLine & _
                        Range("B12").Value & vbNewLine & _
                        Range("B13").Value & vbNewLine & _
                        Range("B14").Value & vbNewLine & vbNewLine & _
                        Range("B15").Value & vbNewLine & _
                        Range("B16").Value
        End With

        'If Not gwattach1 = "" Then gwmessage.Attachments.Add gwattach1
        'If Not gwattach2 = "" Then gwmessage.Attachments.Add gwattach2


        Set gwrecipient = gwmessage.Recipients.Add(Range("B6").Value)

        With gwrecipient
            .EmailType = ""
            .Resolve
        End With

        gwmessage.send

    Next

        Set gwrecipient = Nothing
        Set gwaccount = Nothing
        Set gwapp = Nothing
End Sub

. Я думал, что оно также автоматически добавит подпись, потому что подпись устанавливается для каждого письма. Есть ли какой-нибудь код, как вы делаете для outlook, а также для группового добавления подписи в электронное письмо?

...