Outlook öffnen
03.11.2013 11:09:40
Heinz
Ich habe ein Makro gefunden und angepasst (Danke an Mumpel) das mir aus einen Sheet eine PDF erzeugt,und diese PDF automatisch in Outlook einfügt.
Das einzige ist,das Makro funktioniert nur wenn Outlook geöffnet ist.
Könnte man eine Funktion einfügen,die prüft ob Outlook geöffnet ist,wenn Nein dann Outlook öffnet.
Gruß Heinz
Sub Als_PDF_speichern_versenden()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Dim sPath As String
pdfOpenAfterPublish = True ' PDF wird geöffnet
Rem Pfad und Name der PDF-Datei
With Sheets("Drucken")
pdfName = "Gesperrte Ware " & Format(Date - 1, "dddd dd mmmm yyyy") & ".pdf"
End With
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
lter
Sheets("Drucken").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Range("D200").Value
.CC = Range("D201") & ";" & Range("D202") & ";" & Range("D203")
.Subject = "Gesperrte Ware " & Sheets("Drucken").Range("B1").Value
.htmlBody = "Der VA vom KE"
.Attachments.Add pdfName
.Display
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
End Sub
