AW: Aus Excel-Mappe pdf erstellen und per Outlook vers
25.09.2009 13:23:51
Urmila
Hallo JensP,
hast du denn ein Pdf Drucker oder Acrobat vollversion?
Da würde ich dir raten, zeichne ein Makro auf indem du die Excelmappe ausdruckt und benennst.
Danach denke ich kann dir folgender Code weiterhelfen:
On Error GoTo mailzeigen
Dim olApp As Object
Dim olMailItm As Object
Dim i, k As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
i = 2
weiter:
Do Until i > lz
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
.To = "test@test.de" ' Empfänger eingeben
.Subject = "Betreffzeile"
.Body = "Hallo Frau/Herr Test," & Chr(13) & Chr(13) & "anbei die datei... "
.ReadReceiptRequested = True
.Attachments.Add "C:\My Folder\Printout\"Testdate.pdf" 'ggf. anpassen
.Send
End With
End If
Set olMailItm = Nothing
Set olApp = Nothing
End If
End With
Set olMailItm = Nothing
Set olApp = Nothing
Resume Next
GoTo weiter
Ich hoffe dir geholfen zu haben....
LG
Urmila