Excel Blatt per Mail (Akzeptiert Variablen nicht)

    DateiName = Range("S8") & Application.PathSeparator & Format(Date, "yyyy-MM-dd" & " Commande Ostbelgien")



    Set objOutlook = CreateObject("Outlook.Application")

    Set objMail = objOutlook.CreateItem(0)

    Set objAttachment = objMail.Attachments



    With objMail

        .To = "dd@ff.vv"    'Range("T3")

        .Subject = "Commande de matériel Ostbelgien"

        .Body = "Bonjour " & Range("T4") & "," & Chr(13) & Chr(13) & _

                "En annexe, tu trouveras une commande pour les baliseurs d'Ostbelgien." & Chr(13) & _

                "Merci de bien vouloir la préparer et de me prévenir par retour de courier lorsque tu aura terminé ton travail." & Chr(13) & _

                "Ensuite, nous fixerons rendez-vous par téléphone pour la reprise du matériel." & Chr(13) & Chr(13) & _

                "Bien à toi," & Range("T6")

        .objAttachment = DateiName

        .Display

    End With



    Set objOutlook = Nothing

    Set objMail = Nothing

    Set objAttachment = Nothing