Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Dateien eines Ordners an Outlook anhängen
10.12.2022 01:05:29 Mike Piering
NotSolved
10.12.2022 03:22:44 Gast7777
*****
NotSolved
10.12.2022 09:00:12 Gast31
NotSolved

Ansicht des Beitrags:
Von:
Mike Piering
Datum:
10.12.2022 01:05:29
Views:
251
Rating: Antwort:
  Ja
Thema:
Alle Dateien eines Ordners an Outlook anhängen

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

  


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Dateien eines Ordners an Outlook anhängen
10.12.2022 01:05:29 Mike Piering
NotSolved
10.12.2022 03:22:44 Gast7777
*****
NotSolved
10.12.2022 09:00:12 Gast31
NotSolved