|
Guten Abend Zusammen,
ich kämpfe seit mehreren Stunden an einem kleinen Problem, dass ich nicht lösen kann.
Würde Jemand so freundlich sein und mir unter die Arme greifen?!
Herzlichen Dank im Voraus
Grüße
Mike
PROBLEM:
Ich erstelle aus Excel heraus mehrere durchnummerierte pdf-Dateien in einem Ordner.
Nun möchte ich anschließend alle Dateien dieses Ordners an die E-Mail anhängen. (Mir gelingt jedoch immer nur eine)
Sub Datei_Versand()
Kill ("C:\Temp\*.*")
temp1 = 200
Do
temp1 = temp1 + 1
Dim wbstring As String
wbstring = "C:\TEMP\Testdatei" & temp1 & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=wbstring _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Loop While temp1 < 205
Dim ool As Outlook.Application
Dim oInspector As Outlook.Inspector
Dim oMail As Outlook.MailItem
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
oMail.Subject = "Dies ist eine Test-Mail"
oMail.To = Cells(i, "C")
oMail.Attachments.Add "C:\Temp\Testdatei" & temp1 & ".pdf" 'Wie muss ich diesen Befehl anpassen?
oMail.Recipients.ResolveAll
oMail.Display
oMail.Body = Cells(6, "B") & Cells(6, "C") & Cells(i, "B") & Cells(6, "F") & temp1 & Cells(6, "E")
Set ool = Nothing ' Speicher freigeben
Set oInspector = Nothing
Set oMail = Nothing
Set Wrksheet = Nothing
End Sub
|