Word-Dateien öffnen, als PDF speichern und als Anhang in Outlook E-Mail

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
nachfolgend mal ein grundsätzliches mögliches Codebespiel zur Umsetzung Deines Vorhabens.
Aufgrund der wenigen, undeutlichen Angaben ist jedoch viel Interpretationsspielraum drin.
Da müsstest Du schon schon mehr Infos, z.B. in Form einer hochgeladenen Mappe liefern:

Option Explicit

Sub Word_PDF_Mail()

 Dim sPath1 As String, sFile1 As String, sPath2 As String, sFile2 As String

 Dim sErw As String, sArr() As String, sPathFiles As String

 Dim sMailtext As String, i As Integer

 Dim Zusatz As String

 Const cwdExportFormatPDF = 17

 Zusatz = "_Zusatz"

 sPath1 = "C:&bsol;Users&bsol;voltm&bsol;Desktop&bsol;MyTools&bsol;Words&bsol;"       'anpassen

 sPath2 = "C:&bsol;Users&bsol;voltm&bsol;Desktop&bsol;MyTools&bsol;PDFs&bsol;"        'anpassen

'eMail erstellen

 With CreateObject("Outlook.Application").CreateItem(0)

  .BodyFormat = 3           'HTML-Format, Angabe optional

  .To = "An@web.de"         'Empfänger

  .CC = "Kopie@web.de"      'Kopieempfänger

  .Subject = "PDF-Dateien"  'Betreff

  sMailtext = "Hallo," & vbCrLf & "hier sind die Dateien"

  .Getinspector             'Signatur

  .HTMLBody = Replace(sMailtext, vbLf, "&LT;br&GT;") & .HTMLBody

'Anlagen ermitteln

  sFile1 = Dir$(sPath1 & "*.doc*")

  Do While sFile1 &LT;&GT; ""

   sArr = Split(sFile1, "."): sErw = "." & sArr(UBound(sArr))

   sFile2 = Replace(sFile1, sErw, Zusatz & ".pdf")

   With GetObject(PathName:=sPath1 & sFile1)

    .ExportAsFixedFormat OutputFileName:=sPath2 & sFile2, _

                         ExportFormat:=cwdExportFormatPDF

    .Parent.Quit                         'Word einschließlich Datei schließen

   End With

   sPathFiles = sPathFiles & sPath2 & sFile2 & ","

   sFile1 = Dir$

  Loop

'Anlagen anfügen

  sArr = Split(sPathFiles, ",")

  For i = 0 To UBound(sArr) - 1

   If Dir$(sArr(i)) &LT;&GT; "" Then .Attachments.Add sArr(i)

  Next i

  'send

  .display

 End With

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Word-Dateien öffnen, als PDF speichern und als Anhang in Outlook E-Mail

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

349 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word-Dateien öffnen, als PDF speichern und als Anhang in Outlook E-Mail

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

349 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread