VBA Email senden und Microsoft Email Signatur anfügen

[pitsec]

Moin Moin an alle, die mein Thema lesen und schon mal vorab vielen Dank für die konstruktiven Antworten.

Aktuell habe ich das Problem, dass ich mit meinem VBA Code E-Mails mit Anhängen versenden kann. Mit der Umsetzung die Microsoft Signatur einzubinden scheitere ich. Vielleicht kann jemand von euch meinen Code sichten und diesen Code ggf unter Umständen so anpassen, dass ich die Signatur einbinden kann.

<!------------>
Private Sub cmdBelastungsanzeigeSenden_Click()
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strBody As String
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail

.Recipients.Add Me.[Test-E-Mail]
.Subject = "Belastungsanzeige vom "
strBody = strBody & Me.Anrede & " " & Me.Geschlecht & " " & Me.Nachname & "," & vbCrLf & vbCrLf
strBody = strBody & "mit dieser E-Mail erhalten Sie die aktuelle Belastungsanzeige " & vbCrLf & vbCrLf
strBody = strBody & "Mit freundlichen Grüßen" & vbCrLf
.Body = strBody
.Attachments.Add CStr(Me.Belegdatei)
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Display
'.send
End With



End Sub
<!------->

 

[MDDaniel]

Hallo,
witzigerweise habe ich mich gerade auch mit dem Problem auseinander gesetzt.
Also wenn es um die Standardsignatur geht kannst du sie zuerst einlesen und anschließend wieder anfügen

Private Sub cmdBelastungsanzeigeSenden_Click()
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strBody As String
DIM OrgSig As String

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
OrgSig = .body

.Recipients.Add Me.[Test-E-Mail]
.Subject = "Belastungsanzeige vom "
strBody = strBody & Me.Anrede & " " & Me.Geschlecht & " " & Me.Nachname & "," & vbCrLf & vbCrLf
strBody = strBody & "mit dieser E-Mail erhalten Sie die aktuelle Belastungsanzeige " & vbCrLf & vbCrLf
strBody = strBody & "Mit freundlichen Grüßen" & vbCrLf
.Body = strBody + OrgSig 
.Attachments.Add CStr(Me.Belegdatei)
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Display
'.send
End With



End Sub

Versuch das mal (alle Zeilen mit OrgSig )

 

[pitsec]

Vielen Dank. Ich werde es morgen gleich ausprobieren/umsetzen

 

[pitsec]

Hallo,
witzigerweise habe ich mich gerade auch mit dem Problem auseinander gesetzt.
Also wenn es um die Standardsignatur geht kannst du sie zuerst einlesen und anschließend wieder anfügen

Private Sub cmdBelastungsanzeigeSenden_Click()
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strBody As String
DIM OrgSig As String

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
OrgSig = .body

.Recipients.Add Me.[Test-E-Mail]
.Subject = "Belastungsanzeige vom "
strBody = strBody & Me.Anrede & " " & Me.Geschlecht & " " & Me.Nachname & "," & vbCrLf & vbCrLf
strBody = strBody & "mit dieser E-Mail erhalten Sie die aktuelle Belastungsanzeige " & vbCrLf & vbCrLf
strBody = strBody & "Mit freundlichen Grüßen" & vbCrLf
.Body = strBody + OrgSig
.Attachments.Add CStr(Me.Belegdatei)
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Display
'.send
End With



End Sub

Versuch das mal (alle Zeilen mit OrgSig )

Hallo

MDDaniel leider funktioniert der Code nicht. Kann es sein, dass ggf noch ein Set OrgSig ="Pfad zur Signatur" fehlt. VG​

 

[pitsec]

Hallo

MDDaniel leider funktioniert der Code nicht. Kann es sein, dass ggf noch ein Set OrgSig ="Pfad zur Signatur" fehlt. VG​

Ich habe den Code angepasst und jetzt funktioniert, dass Automatische anfügen der Standard Signatur.

Private Sub cmdBelastungsanzeigeSenden_Click()
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strBody As String

Dim signature As String
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)


With objMail

.GetInspector.Display
.Recipients.Add Me.[txtE-Mail]
'.CC = ""
.Subject = "Belastungsanzeige vom " & " " & Me.Berechnungszeitraum & "," & vbCrLf & vbCrLf


.HTMLBody = "<body style='font-family:Arial;font-size:11pt;color:#000000'>" _
& "<br>" & Me.Anrede & " " & Me.Geschlecht & " " & Me.Ansprechpartner & "," _
& "<p>" & "mit dieser E-Mail erhalten Sie die Belastungsanzeige für den Zeitraum" & " " & Me.Berechnungszeitraum _
& "<br>" & "Bitte leiten Sie die Mail entsprechend weiter, falls nicht Sie für die Bearbeitung zuständig sind. " _
& "<p>" & "Mit freundlichen Grüßen" _
& "<br></body>" & .HTMLBody
.Attachments.Add CStr(Me.Belegdatei)
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Display
'.send
End With
End Sub