VBASignatur wird überschrieben VBA

[Semi069]

Hi Zusammen,

ich habe das Problem, sobald er zu .HTML Body kommt wird die Signatur einfach überschrieben.

Wie kann das ganze vermieden werden. Habe eine Auszug vom Code (s.u)

Dim OutlookApp As Object, strEmail As Object
    
        '** Vorgaben definieren
        Set OutlookApp = CreateObject("Outlook.Application")
        Dim ShowPdfCommand  As String
        Shell "C:\Program Files (x86)\Mozilla Firefox\firefox.exe ""file:///C:/Users/ssagir/Desktop/" + ActiveSheet.Name + "_" + Worksheets(CurrentCustomerSheet).Cells(23, 3).Value + ".pdf"
    


        ' mit "Ja" und "Nein" Schaltflächen
        A = MsgBox("Ist die Rechnung korrekt", SystemModal + vbYesNo, "Rechnungsüberpüfung")
        
        If ((A = vbYes) And (1 = 1)) Then
            Set strEmail = OutlookApp.CreateItem(0)
            
            With strEmail
                Dim Empfaenger As String
                Empfaenger = Trim(ActiveSheet.Cells(7, 12).Value)
                If (Empfaenger <> "") Then
                    .GetInspector.Display
                    .To = ActiveSheet.Cells(7, 12).Value
                    .CC = ActiveSheet.Cells(7, 14).Value
                    .Subject = ActiveSheet.Cells(20, 2).Value & " " & ActiveSheet.Name & "_" & ActiveSheet.Cells(23, 3).Value
                    
                    
                     If (ActiveSheet.Cells(23, 2).Value = "Invoice No:") Then
                        Dim tmp As String
                     
                     
                          .HTMLBody = "Dear " + tmp + ",

attached please find invoice " & ActiveSheet.Cells(23, 3).Value & "
" & "
" & "If you have any questions, please feel free to contact me

Best Regards
Semi Sagir" & vbNewLine & Signature
                     
                     Else
                          .HTMLBody = "Sehr geehrter Geschäftspartner,

" & "anbei erhalten Sie unsere Rechnung " & ActiveSheet.Cells(23, 3).Value & "
" & "
" & "Für Rückfragen stehe ich Ihnen gerne zur Verfügung" & "
" & "
" & "Mit freundlichen Grüßen" & "
" & "Semi Sagir"
                     End If
                    
                    
                    .Attachments.Add sFullFileName
                    .Display
                    '.Send '
                    'ActiveSheet.PrintOut
                Else
                    A = MsgBox("Keine eMail Adresse für " + Kundenname)
                End If
                    
            End With

Grüße

Semi

[mumpel]

Hallo!

Du musst die Signatur zwischenspeichern und später wieder anfügen. http://www.rholtz-office.de/outlook/emai...llen_teil1

Gruß, René

[Semi069]

Danke :)

ich habe einfach meinen code um das erweitert und alles klappt

.GetInspector.Display

                    olOldbody = .htmlBody

.htmlBody = ........"Best Regards" & olOldbody

Grüße
Semi