Sub mail_aus_vorlage()
Dim outlook As Object
Dim neueNachricht As Object
Dim betreff As String
Dim text As String
Dim pfad1 As String, pfad2 As String, pfad3 As String, speicherpfad As String
Dim i As Long
Dim datum, zeit, ort
Dim ekonto
Dim nachricht
Dim inbox
Dim zahler
Dim pfad(3)
pfad(1) = "Pfad der ersten Vorlage mit Name auf .oft"
pfad(2) = "Pfad der zweiten Vorlage mit Name auf .oft"
pfad(3) = "Pfad der dritten Vorlage mit Name auf .oft"
speicherpfad = "Pfad zum Abspeichern endet mt \"
Set outlook = CreateObject("Outlook.Application")
For i = 1 To 3
Set neueNachricht = outlook.CreateItemFromTemplate(pfad(i))
neueNachricht.display True
betreff = neueNachricht.Subject
text = neueNachricht.body
betreff = Format(datum, "yyyymmdd") & betreff
neueNachricht.Subject = betreff
text = Replace(text, "<DATUM>", datum)
text = Replace(text, "<UHRZEIT>", zeit)
text = Replace(text, "<ORT>", ort)
neueNachricht.body = text
Set neueNachricht = Nothing
Next i
zahler = 0
Set ekonto = outlook.GetNamespace("MAPI")
Set inbox = ekonto.GetDefaultFolder(6)
For Each nachricht In inbox.items
If zahler < 4 Then
If Left(nachricht.Subject, 8) = Format(datum, "yyyymmdd") Then
nachricht.SaveAs speicherpfad & nachricht.Subject & ".msg"
zahler = zahler + 1
End If
End If
Next nachricht
End Sub