Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBASignatur wird überschrieben VBA
#1
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
Antworten Top
#2
Hallo!

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

Gruß, René
[-] Folgende(r) 1 Nutzer sagt Danke an mumpel für diesen Beitrag:
  • Semi069
Antworten Top
#3
Danke :)

ich habe einfach meinen code um das erweitert und alles klappt

.GetInspector.Display

                    olOldbody = .htmlBody

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

Grüße
Semi
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste