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?