Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Signatur aus Excel einfügen


Betrifft: Signatur aus Excel einfügen von: andy
Geschrieben am: 19.09.2019 21:11:42

Hallo Excel- Freunde,

wie bekomme ich in die E-Mail meine vorhanden Outlook-Signatur hinein.
Danke im voraus!

Private Sub CommandButton1_Click()
 Dim sPathPDF$
 Dim objOutlook As Object, objMail As Object
 Dim olOldBody As String
 
 'PDF erstellen
 With ThisWorkbook
     
     'Pfad wo die PDF gespeichert werden soll, hier wo die Excel liegt
     sPathPDF = IIf(Right$(.Path, 1) = "\", .Path, .Path & "\")
     
     'Pfad + PDF-File-Name, hier wird der Namer der Excel verwendet
     sPathPDF = sPathPDF & Left(ActiveSheet.Name, InStrRev(.Name, ".")) & ".pdf"
     
     'oder so, mit anderen Dateinamen
     'sPathPDF = sPathPDF & "Maine PDF Datei.pdf"
     
     'Abfrage ob Datei ersetzt werden soll, bei nein Abbruch
     If Dir(sPathPDF, vbNormal) <> "" Then
         If MsgBox("Vorhandene Datei ersetzen?", vbYesNo + vbQuestion) = vbNo Then
             Exit Sub
         End If
     End If
    
     
 '    'ges. Datei als PDF speichern ********************************************
 '    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 '        sPathPDF, Quality:=xlQualityStandard, _
 '        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
     'nur eine Tabelle als PDF ***********************************************
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         sPathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
         False, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 '    'nur eine bestimmte Seite auf der Tabelle als PDF, hier Seite 1 bis 1 ***
 '    Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 '        sPathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
 '        False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
 
 End With
 
 'Mail erstellen ************************************
 Set objOutlook = CreateObject("Outlook.Application")
 Set objMail = objOutlook.CreateItem(0)
    
 With objMail
      
     .To = "" 'An-Empfänger
     .CC = "" 'Cc-Empfänger
     .BCC = "" 'BCc-Empfänger
     .Subject = Range("B1").Value & " " & Date 'Betreff
     .Body = "Mail Nachricht" 'Nachricht
     .Attachments.Add sPathPDF 'Anlage
     .Display 'Mail anzeigen
    
     
 End With
 End Sub

  

Betrifft: doppelt und aucherledigt. o.w.T. von: 1714006.html
Geschrieben am: 19.09.2019 22:06:42


Beiträge aus dem Excel-Forum zum Thema "Signatur aus Excel einfügen"