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