Hallo,
via Outlook möchte ich Mails mit mehreren Anhängen an zwei unterschiedliche Adressen senden. Das Senden mit je einer datei funktioniert auch recht gut - nur Wildcards scheinen wohl nicht zu funktionieren. Wie bekomme ich das hin?
Aus dem was ich mir bislang zusammen gegooglet habe bin ich schlau geworden und das ich nicht der Experte bin sieht man sicherlich am Code:
Ich vermute mal, daß ich mit dem FileSystemObject mit die Dateien aus dem Ordener holen muß. Hierzu hätte ich evtl. auch ein Beispiel - leider weiß ich aber nicht wie ich das ganze dann dem Attachments.Add übergeben soll.
Ein vielversprechendes Beispiel (VBA) sieht so aus:
Hier laufe ich jedoch ein DIR rein, was VBS wohl so nicht kennt
Im Anschluss sollen dann alle Dateien in einen Extraordner z.B. c:\gesendet verschoben werden. Aber das ist, glaub ich, ein anderes Thema
via Outlook möchte ich Mails mit mehreren Anhängen an zwei unterschiedliche Adressen senden. Das Senden mit je einer datei funktioniert auch recht gut - nur Wildcards scheinen wohl nicht zu funktionieren. Wie bekomme ich das hin?
Aus dem was ich mir bislang zusammen gegooglet habe bin ich schlau geworden und das ich nicht der Experte bin sieht man sicherlich am Code:
PHP:
Const olByValue = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
Dim oOApp2
Dim oOMail2
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
Set oOApp2 = CreateObject("Outlook.Application")
Set oOMail2 = oOApp.CreateItem(olMailItem)
With oOMail
.To = "amb@xxx.de"
.Subject = "Abgeschlossene Aufträge mB"
.Body = "Anbei die abgeschlossenen und unterschriebenen Aufträge (mit Beanstandungen)"
.Attachments.Add "C:\Auftraege\X_*.pdf", olByValue, 1
.Send
End With
with oOMail2
.To = "aob@xxx.de"
.Subject = "Abgeschlossene Aufträge oB"
.Body = "Anbei die abgeschlossenen und unterschriebenen Aufträge (ohne Beanstandungen)"
.Attachments.Add "c:\Auftraege\*.pdf", olByValue, 1
.Send
End With
Ich vermute mal, daß ich mit dem FileSystemObject mit die Dateien aus dem Ordener holen muß. Hierzu hätte ich evtl. auch ein Beispiel - leider weiß ich aber nicht wie ich das ganze dann dem Attachments.Add übergeben soll.
Ein vielversprechendes Beispiel (VBA) sieht so aus:
PHP:
Dim sPath As String
Dim sFile As String
Dim sAttachments As String
sPath = "Z:\Kunden\Kunde1\"
sFile = Dir(sPath & "1-2-3 *.pdf")
Do While sFile > vbNullString
sAttachments = "," & Chr(34) & sPath & sFile & Chr(34)
sFile = Dir
Loop
If Len(sAttachments) > 0 Then sAttachments = Mid$(sAttachments, 2)
Hier laufe ich jedoch ein DIR rein, was VBS wohl so nicht kennt
Im Anschluss sollen dann alle Dateien in einen Extraordner z.B. c:\gesendet verschoben werden. Aber das ist, glaub ich, ein anderes Thema
Zuletzt bearbeitet: