Hallo Zusammen,

ich habe hier einen Code der eine Email mit Anhang über Outlook 2007 verschickt. Das funktioniert so einwandfrei.
Meine Frage: Gibt es eine Möglichkeit den Code so zu verändern das immer das aktuelle Email Standardprogramm verwendet wird?

Vielen Dank
Wolfi


EMail_Senden:
A = "AB_" & BN & (".pdf")
Sheets("Auftragsbestätigung").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Auftragsverwaltung\Auftragsbestätigungen\" & A, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Mail = Sheets("Auftragsbestätigung").Range("B17")

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Mail
.CC = ""
.BCC = ""
.Subject = "Auftragsbestätigung zu Bestellung Nr.: " & BN
.Body = "Sehr geehrte Damen und Herren," & Chr(10) & Chr(10) & "Im Anhang finden Sie Ihre Auftragsbestätigung."
.Attachments.Add "C:\Auftragsverwaltung\Auftragsbestätigungen\" & A
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
Kill "C:\Auftragsverwaltung\Auftragsbestätigungen\" & A
GoTo Speichern1
Exit Sub