Hallo Leute,
ich habe eine Frage bezüglich Dateianhänge, wenn man mit VBA Code Emails mit Outlook versenden möchte.
Undzwar ich erstelle mit meinem Code zuerst von CSV zu xls Daten, was einwandfrei geht. Jetzt möchte ich diese erstellten xls Daten mit Outlook versenden.
Sub E_Mail(senden As Boolean, empfängeradresse As String, Betreff As String, Text As String, Optional CCadresse As String = "", Optional BCCadresse As String = "", Optional Anhaenge, Optional Absendername As String = "")
' Function versendet E_Mails mithilfe von Outlook
' Anhänge müssen als Array von Strings eingegeben werden
Dim oOL As Object 'Outlook-Objekt
Dim oOLMsg As Object 'E-Mail-Objekt
Dim x 'Anhangselement für Schleifendurchlauf
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
.To = empfängeradresse
.CC = CCadresse
.BCC = BCCadresse
.Subject = Betreff
.Body = Text
.Importance = 1
End With
If IsArray(Anhaenge) Then
For Each x In Anhaenge
oOLMsg.Attachments.Add CStr(x)
Next x
End If
If Absendername <> "" Then
oOLMsg.SentOnBehalfOfName = Absendername
End If
oOLMsg.display
If senden Then
On Error Resume Next
oOLMsg.Send
If Err.Number <> 0 Then
Exit Sub
End If
On Error GoTo 0
End If
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub
Also der Code geht nur wie stell ich das so ein dass meine Anhänge meine erstellten Dateien sind?
Hat jemand ne Ahnung?
Danke im Vorraus für eure Antwort
|