07.09.2022, 11:21
Hallo zusammen,
ich stehe hier vor einem Problem und hoffe jemand kann mir helfen.
In einem Ordner habe ich eine Menge pdfs D:\Test\ jeweils mit dem Filename "nachname_vorname.pdf"
Nun habe ich dieses Skript gefunden und würde dies gerne anpassen, blicke aber nicht wie:
Da es sich um viele PDF's handelt, wäre die Idee das er sich den Empfänger aus dem Namen der PDF erzeugt und somit die richtig PDF dem richtigen Empfänger geschickt wird.
Geht das?
LG und Danke
ich stehe hier vor einem Problem und hoffe jemand kann mir helfen.
In einem Ordner habe ich eine Menge pdfs D:\Test\ jeweils mit dem Filename "nachname_vorname.pdf"
Nun habe ich dieses Skript gefunden und würde dies gerne anpassen, blicke aber nicht wie:
Code:
Option Explicit
Sub Verteiler()
'Bitte anpassen
Const strEmpfänger As String = "nachname_vornam@domain.com"
Const strVerzeichnis As String = "D:\Test\"
Dim miSenden As MailItem
Dim strFilename As String
strFilename = Dir(strVerzeichnis & "*.pdf")
Do While strFilename > ""
Set miSenden = Application.CreateItem(olMailItem)
With miSenden
.To = strEmpfänger
.Subject = strFilename
.Body = "Sehr gehrte" & vbLf _
& "MfG" & vbLf _
& "Absender"
.Attachments.Add strVerzeichnis & strFilename
.Send
End With
strFilename = Dir
Loop
Set miSenden = Nothing
End SubDa es sich um viele PDF's handelt, wäre die Idee das er sich den Empfänger aus dem Namen der PDF erzeugt und somit die richtig PDF dem richtigen Empfänger geschickt wird.
Geht das?
LG und Danke