Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema CommandButton | |
|---|---|
 Screenshot zu CommandButton |
CommandButton-Seite mit Beispielarbeitsmappe aufrufen |
Signatur aus Excel einfügen
- Signatur aus Excel einfügen von andy vom 19.09.2019 21:11:42
- doppelt und aucherledigt. o.w.T. - von Werner am 19.09.2019 22:06:42
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