Eine Datei als Excel und Pdf mit Outlook

Hallo Liebe Leute, ich habe einen Code geschrieben der aus verschiedenen Daten ein Excel Sheet exportiert. Dieses wird automatisch per Mail verschickt. Dazu verwende ich:

Public Sub ExtendMail()
xyz= "TYPE " & Range("Name").value
' hier wird von

Public Sub der Export geholt
Application.Dialogs(xlDialogSendMail).Show Arg2:=xyz
End Sub

Das funktiert auch wunderbar. Jetzt öffnet sich ein Outlook Fenster mit dem Excel im Anhang. Mein Wunsch wäre es jetzt die gleiche Datei die schon im Anhang ist automatisch als PDF anzuhängen. Bisher habe ich keine Infos gefunden ob das auch mit xlDialogSendMail gehen würde. Ich habe zwar einen Code mit dem ich das Exportierte File als PDF verschicken kann, allerdings müsste ich dann zwei Mails schicken. 

Dazu habe ich diesen Code verwendet:

http://www.excel-inside.de/vba-loesungen/drucken/830-pdf-per-vba-erzeugen

01.Sub e_Mail()

02. 

03.'** Dimensionierung der Variablen

04.Dim strPDF As String

05.Dim OutlookApp As Object, strEmail As Object

06. 

07.'** Vorgaben definieren

08.Set OutlookApp = CreateObject("Outlook.Application")

09.Set strEmail = OutlookApp.CreateItem(0)

10. 

11.'** PDF erzeugen

12.ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

13.ThisWorkbook.Path & "\Excel-File.pdf", Quality:=xlQualityStandard _

14., IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _

15.:=False

16. 

17.'** E-Mail versenden

18.strPDF = ThisWorkbook.Path & "\Excel-File.pdf"

19.With strEmail

20..To = "name@domain.tld"

30..Subject = "PDF als Anlage" 'Betreffzeile

31..body = "Als Anlage die PDF-Datei"

32..Attachments.Add strPDF

33..Display

34.'.Send 'Damit wir die E-Mail sofort versendet

35.Kill strPDF

36.End With

37. 

38.'** Objektvariablen wieder löschen

39.Set OutlookApp = Nothing

40.Set strEmail = Nothing

41.End Sub

Kennt jemand eine elegante Lösung um den ersten Code weiter zu verwenden und trotzdem das PDF anzuhängen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim strRecipient As String: strRecipient = "support@codevba.com" Dim strSubject As String: strSubject = "Latest data in attached file" Dim booReturnReceipt As Boolean: booReturnReceipt = True Application.Dialogs(xlDialogSendMail).Show Arg1:=strRecipient, Arg2:=strSubject, Arg3:=booReturnReceipt

Option Explicit Public Sub SendAsPdfAndXLSAttach() Dim olApp As Object Dim strPath As String Dim strPDF As String Dim strXLSX As String strPath = Environ("USERPROFILE") & "\Desktop\" strPDF = "Test.pdf" strXLSX = "Test.xlsx" ThisWorkbook.Sheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & strPDF, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveSheet.Copy With ActiveWorkbook .SaveAs Filename:=strPath & strXLSX, FileFormat:=xlOpenXMLWorkbook .Close End With Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .To = "test@test.de" .Subject = "Test" .htmlBody = "Hallo, nur ein Test. Gruß, Max" .Attachments.Add strPath & strPDF .Attachments.Add strPath & strXLSX .Display End With Kill strPath & strPDF Kill strPath & strXLSX End Sub VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2002-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Option Explicit Public Sub SendAsPdfAndXLSAttach() Dim olApp As Object Dim strPath As String Dim strPDF As String Dim strXLSX As String strPath = ActiveWorkbook.Path & "\" strPDF = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".pdf" strXLSX = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".xlsx" With ThisWorkbook.Sheets("Tabelle1") .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & strPDF, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False .Copy End With With ActiveWorkbook .SaveAs Filename:=strPath & strXLSX, FileFormat:=xlOpenXMLWorkbook .Close End With Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .To = "test@test.de" .Subject = "Test" .htmlBody = "Hallo, nur ein Test. Gruß, Max" .Attachments.Add strPath & strPDF 'PDF-Datei anhängen .Attachments.Add strPath & strXLSX 'Aktive Arbeitsmappe anhängen .Display End With Kill strPath & strPDF Kill strPath & strXLSX End Sub VBA/HTML - CodeConverter für Office-Foren, AddIn für Office 2002-2013 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:mumpel Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

Eine Datei als Excel und Pdf mit Outlook

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eine Datei als Excel und Pdf mit Outlook

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread