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