Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail Adresse durch PDF E-Mailanhang zuordnen
 26.01.2018 15:20:35 Constantin
NotSolved

Ansicht des Beitrags:
Von:
Constantin		 Datum:
26.01.2018 15:20:35		 Views:
798		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail Adresse durch PDF E-Mailanhang zuordnen
Hallo zusammen, meine Name ist Constantin und bin seit längerem Gastleser hier und habe schon sehr viel profitiert. Dafür schon mal vielen Dank. Ich probiere gerade einen Makro zu schreiben, welches den Versand von PDF Dateien automatisiert. Das heißt ich habe in einem bestimmten Ordner ca. 30 verschiedene PDFs. Jedes PDF muss an eine andere E-Mail Adresse geschickt werden. Ich bin soweit gekommen, dass ich über einen Loop für alle PDFs extra Outlooknachrichten öffnen lasse. Sub PDF_schicken() Dim Nachricht As Object, OutlookApplication As Object Set OutlookApplication = CreateObject("Outlook.Application") Dim olOldBody As String Dim Datei As String Dim folder As String, pfile As String, ext As String folder = "xxx\ZZZ_Umsätze\" pfile = Dir(folder & "\*.*") Do While CBool(Len(pfile)) ext = Chr(32) & LCase(Trim(Right(Replace(pfile, Chr(46), Space(99)), 99))) & Chr(32) If CBool(InStr(1, " pdf ", ext, vbTextCompare)) Then Set Nachricht = OutlookApplication.CreateItem(0) With Nachricht .GetInspector.Display .Subject = "turnover 2017" olOldBody = .htmlBody .Attachments.Add (folder & "\" & pfile) .Display .To = "" End With End If pfile = Dir Loop End Sub Jetzt würde ich gerne basierend auf dem PDF Dateinamen noch automatisch die richtige E-Mail zu ordnen. Ich habe es hiermit probiert: Application.WorksheetFunction.VLookup(FileName, Tabelle1.Range("A1:B350"), 2, False) Leider funktioniert das nicht Kann mir jemanden vielleicht weiterhelfen? Danke & Gruß, Constantin

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 E-Mail Adresse durch PDF E-Mailanhang zuordnen
 26.01.2018 15:20:35 Constantin
NotSolved