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