Automatischer Versand von PDF aus einem Dateiordner

Guten Morgen Peter,

ja, wie gesagt ich habe noch nie im Outlook programmiert.

Wenn ich die Dateien in einer Schleifde eingelesen habe und die *.otl in die einzelnen Bestandteile zerlegt habe, weiß ich nicht, wie ich eine neue E-Mail anlege, d. h. wie ich die Felder Empfänger, Betreff, E-Mailtext anspreche und wie ich die entsprechende PDF-Datei anhänge und verschicke. Was ist mit einer im Outlook vorbelegten Signatur? Wird die automatisch übernommen? Kann ich die unterdrücken?

Das sind Fragen über die ich mir bei Access keine Gedanken machen musste.

Viele Grüße

Axel

Hallo Peter,

hier nun der VBCode.

Private Sub cmdStart_Click()

Dim olApp As Outlook.Application
Dim olInspector As Outlook.Inspector
Dim objMail As Outlook.MailItem

Dim DateiMuster As String
DateiMuster = strFolder & "*.otl"

Dim DateiInhalt As String
Dim EMail(3) As String
Dim Vergleichsmuster As String

Dim DateiNr As Integer
Dim AnzMail As Long
Dim BLaenge As Long
Dim I As Long

Dim myattachments As Variant

If strFolder <> "" Then
Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(olMailItem)
Set myattachments = objMail.Attachments

Label2.Visible = True
strFile.Visible = True
NeueDatei:
Vergleichsmuster = Dir(DateiMuster)

If Vergleichsmuster <> "" Then
strFile = Vergleichsmuster ' Dateinamen anzeigen
DateiNr = FreeFile
BLaenge = FileLen(strFolder & Vergleichsmuster)
Open strFolder & Vergleichsmuster For Binary As DateiNr
DateiInhalt = String(BLaenge, " ")
Get DateiNr, 1, DateiInhalt

BLaenge = 0 ' Felder trennen
BLaenge = InStr(1, DateiInhalt, "~", vbTextCompare)

If BLaenge > 0 Then
EMail(1) = Left(DateiInhalt, BLaenge - 1) ' E-Mailadresse
DateiInhalt = Right(DateiInhalt, Len(DateiInhalt) - BLaenge)

BLaenge = 0
BLaenge = InStr(1, DateiInhalt, "~", vbTextCompare)

If BLaenge > 0 Then
EMail(2) = Left(DateiInhalt, BLaenge - 1) ' E-Betreff
EMail(3) = Right(DateiInhalt, Len(DateiInhalt) - BLaenge) ' Mailinhalt
Else
MsgBox "Fehlerhafter Dateiinhalt! Bitte korrigieren Sie die Datei und starten die Verarbeitung erneut.", vbCritical, "Fehler"
Close DateiNr
End If
Else
MsgBox "Fehlerhafter Dateiinhalt! Bitte korrigieren Sie die Datei und starten die Verarbeitung erneut.", vbCritical, "Fehler"
Close DateiNr
End If

objMail.To = EMail(1)
objMail.Subject = EMail(2)
objMail.Body = EMail(3)
myattachments.Add strFolder & Left(Vergleichsmuster, Len(Vergleichsmuster) - 3) & "pdf"

Set olApp = Nothing
Set olInspector = Nothing
Set objMail = Nothing

Close DateiNr
' Kill Vergleichsmuster
' kill left(vergleichsmuster, len(vergleichsmuster)-3) & "pdf"
GoTo NeueDatei
Else
If AnzMail = 0 Then
MsgBox "Es wurden keine Dateien zur E-Mailversendung gefunden! ", vbInformation, "Hinweis"
Else
MsgBox "Fertig. Es wurden " & AnzMail & " E-Mails versendet. ", vbInformation, "Hinweis"
End If
End If
Else
MsgBox "Fehler bei der Initialisierung. Es wurde kein Pfad gefunden.", vbCritical, "Fehler"
End If

Ende:
frmStart.Hide

End Sub

Die Routine wird einmal durchlaufen, jedoch wird keine Email erzeug und versendet. Beim 2. Druchlauf tritt Fehler 91 auf. Vielleicht siehst Du was hier falsch läuft?

Gruß

Axel

Guten Abend Peter,

sorry, aber wenn beim Copy & Paste die Formatierung flöten geht, ist das nicht unbedingt meine Schuld.

Moin Peter,

vielen Dank für Deine Hilfe. Ich habe Deine Änderungen vorgenommen, ein Errorhandling eingefügt und nun gehen die Mails raus, das ist super.

Vielen Dank für Deine Hilfe.

Viele Grüße
Axel