Quantcast
Channel: Active questions tagged email - Stack Overflow
Viewing all articles
Browse latest Browse all 29755

Excel VBA: groupwise signature

$
0
0

I'm currently working on a macro for automatization of an email message via Groupwise. I send the email using the following code

Public gwapp As GroupwareTypeLibrary.Application, gwmessage As GroupwareTypeLibrary.Message, gwaccount As GroupwareTypeLibrary.Account, gwrecipient As GroupwareTypeLibrary.RecipientSub 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 = NothingEnd Sub

I thought it would automatically add the signature as well, because the signature is set to every email. Is there some sort of code as you do for outlook as well for groupwise to add the signature to the email?


Viewing all articles
Browse latest Browse all 29755

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>