Hallo Leute
Bin seit gestern Makro-Anwender und hab mir seit dem alles aus dem Internet heraus gesucht was ich benötige. Bin au ziemlich weit gekommen, nun aber bin ich mit meinen Stichwortsuche am Ende und brauch eure Hilfe. Folgen mal mein aktueller Code:
Public Sub TabelleAlsPdf()
Dim olApp As Object
Dim AWS As String
Dim olOldBody As String
Dim strAddress As String
Dim i As Integer
' Rem Pfad für PDF festlegen
AWS = "H:\XXX\YYY\AB " & Range("M25") & " " & Range("E14") & ".pdf"
' Bestimmen der E-Mailadresse
strAddress = Range("O19")
' Rem Tabelle2 als PDF speichern
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") ' Sendekonto vorwählen (für jede Emailadresse eine _
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") ' Betreff
.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 ' Body. "<br>" = Zeilenumbruchanweisung
.Attachments.Add AWS 'Datei anhängen
End With
End Sub
Folgende Schwierigkeit gilt es zu beheben:
1. Der Code ist in dieser Form nicht mit Excel 2013 kompatibel. "Laufzeitfehler" oder "Fehler 400" werden angezeigt. Was muss ich ändern damit dieser auch auf dem neuen Office läuft?
2. Die Erstellung der PDF's läuft absolut problemlos und das Dokument wird auch richtig im Outlook angefügt. Nur ist das Problem, dass das PDF-Dokument extrem hässlich aussieht von der Qualität. Kennt jemand eine Variante/Möglichkeit wie ich ein schöneres PDF erstellen kann?
3. Beim speichern des PDF's wird gleichzeitig geprüft ob der Dateiname schon vorhanden ist. Gibt es eine möglichkeit, dass der Dateiname automatisch um einen bestimmten Text (z.B. Version 2) erweitert wird, falls es diese Datei schon gibt?
Dank für eure Hilfe.
Gruss, Aeschli
|