Send mail med gemt signatur
Jeg har en kode som sender mail til defineret mail adr., men i kodningen kan jeg ikke skrive så meget tekst som skal stå i mailen og heller ikke formatere det. Så jeg har bygget en signatur op i Outlook som jeg godt kunne tænke mig at kode mig til at den skal vælge den signatur inden afsendelsen. Nogen der ved hvordan man kan kode det??Min kodning ser pt sådan ud:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "qpus@slagelse.dk"
.To = Range("E7") 'OBS: SKAL RETTES TIL INDEN UNDSENDELSE
.CC = ""
.BCC = ""
.Subject = "Emne felt"
.Body = "Kære " & Range("E5") & vbNewLine & vbNewLine & "Min tekst"
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
.Close savechanges:=False
End With
'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With