Public Sub TabelleAlsPdf()
Dim olApp As Object
Dim AWS As String
Dim olOldBody As String
Dim strAddress As String
Dim i As Integer
AWS = "H:\XXX\YYY\AB " & Range("M25") & " " & Range("E14") & ".pdf"
strAddress = Range("O19")
If Dir(AWS) = "" Then
ThisWorkbook.Sheets("AB TL").ExportAsFixedFormat Type:=xlTypePDF, Filename:=AWS, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
MsgBox "Der verwendete Dateiname ist bereits vorhanden."
Exit Sub
End If
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
Set .SendUsingAccount = .Session.Accounts.Item("info@moebelagentur.ch")
eigene Datendatei erforderlich). _
"Kontoname" = Name des Kontos (in Anführungszeichen) _
wie er in Outlook angezeigt wird.
.GetInspector.Display
olOldBody = .htmlBody
.To = strAddress
.Subject = "Auftragsbestätigung " & Range("M25") & " - " & Range("J28")
.htmlBody = "<span style=""font-size:11pt; font-family:'calibri'"">" & _
"Sehr geehrte Damen und Herren<br><br>" & _
"Herzlichen Dank für Ihre Bestellung.<br>" & _
"Im Anhang finden Sie die entsprechende Auftragsbestätigung.<br><br>" & _
"Wir bitten Sie die Auftragsbestätigung zu kontrollieren. Ohne Gegenbericht innert 5 Tagen gilt der Auftrag als genehmigt." & olOldBody
.Attachments.Add AWS
End With
End Sub