Dateianhänge an .Attachments.Add übergeben
Hallo,
ich würde gerne mal eure Hilfe in Anspruch nehmen, und zwar habe ich mir mit hilfe von google ein script zusammengewerkelt was soweit auch funktioniert.
einziges Problem, ich habe überhaubt keine Ahnung wie ich die ausgewählten Dateien an ".Attachments.Add" übergebe.
Aufgabe soll einfach sein:
Verschiedene Word-Dateien aus Ordnern und Unterordnern die ein " #" Zeichen besitzen per E-Mail zu versenden und das " #" zu löschen.
Mein Script sieht folgendermaßen aus:
Danke und Grüße aus Duisburg
ich würde gerne mal eure Hilfe in Anspruch nehmen, und zwar habe ich mir mit hilfe von google ein script zusammengewerkelt was soweit auch funktioniert.
einziges Problem, ich habe überhaubt keine Ahnung wie ich die ausgewählten Dateien an ".Attachments.Add" übergebe.
Aufgabe soll einfach sein:
Verschiedene Word-Dateien aus Ordnern und Unterordnern die ein " #" Zeichen besitzen per E-Mail zu versenden und das " #" zu löschen.
Mein Script sieht folgendermaßen aus:
On Error Resume Next
Dim strList
Set FSO = WScript.CreateObject("Scripting.FilesystemObject")
ProcFolders FSO.GetFolder("C:\Users\frost\Desktop\Test VBS\Test\")
If strList = "" Then strList = "Keine Datei" & vbCrLf
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "test@gmx.de" 'Empfänger-Adresse.
.CC = "" 'Sendet die Email in Kopie an die angegebene Emailadresse.
.BCC = "" 'Sendet die Email in Blind-Kopie an die angegebene Emaildadresse.
.Subject = "Dokumente" 'Mail-Betreff.
'Text
.Body = "Hallo ...," & vbCrLf & vbCrLf & _
"sende Dir hiermit die Dokumente im Anhang." & vbCrLf & vbCrLf & _
"Gruß ..." & vbCrLf & vbCrLf & vbCrLf & _
"Anhang:" & vbCrLf & vbCrLf & _
"" & strList
'.HTMLBody = "" 'HTML-Text
.Attachments.Add
.ReadReceiptRequested = False 'Lesebestätigung anforndern. (True = wahr, False = falsch)
.OriginatorDeliveryReportRequested = False 'Übermittlungsbestätigung anfordern. (True = wahr / False = falsch)
.Sensitivity = 0 'Vertraulichkeit. (0 = Normal, 1 = Persönlich, 2 = Privat, 3 = Vertraulich)
.Importance = 1 'Wichtigkeit. (0 = Niedrig, 1 = Normal, 2 = Hoch)
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
'.Send 'Sendet die Email automatisch.
Set objOutlook = Nothing
Set objMail = Nothing
End With
MsgBox strList & vbCrLf & "wird gesendet:",0,""
Sub ProcFolders(Folder)
For Each File In Folder.Files
If LCase(Right(File.Name,7)) = " #.docx" Then
'NewName = Replace(File.Name, " #", "")
'File.Name = NewName
strList = strList & File.Name & vbCrLf
End If
Next
For Each SubFolder In Folder.SubFolders
On Error Resume Next
ProcFolders(SubFolder)
On Error Goto 0
Next
End Sub
Danke und Grüße aus Duisburg
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 397935
Url: https://administrator.de/contentid/397935
Ausgedruckt am: 29.03.2024 um 05:03 Uhr
2 Kommentare
Neuester Kommentar
Hallo,
https://www.experts-exchange.com/questions/20306442/How-to-add-an-attach ...
https://wellsr.com/vba/2018/excel/excel-vba-send-email-with-attachment/
Gruß,
Peter
Zitat von @speedy1809:
einziges Problem, ich habe überhaubt keine Ahnung wie ich die ausgewählten Dateien an ".Attachments.Add" übergebe.
https://docs.microsoft.com/en-us/office/vba/api/outlook.attachments.addeinziges Problem, ich habe überhaubt keine Ahnung wie ich die ausgewählten Dateien an ".Attachments.Add" übergebe.
https://www.experts-exchange.com/questions/20306442/How-to-add-an-attach ...
https://wellsr.com/vba/2018/excel/excel-vba-send-email-with-attachment/
Gruß,
Peter