Hallo

Ich habe folgenden Code erstellt eine Datei lädt Sie ins Mail und schreibt das Mail vor, wenn die Mailadressen fix im Code hinterlegt sind funktioniert alles einwandfrei.

Nun sollte ich aber die Mailadressen variable gestalten damit nicht immer in den VBA Code eingegriffen werden muss und plötzlich funktioniert das nicht mehr.

Sub xxxx_senden()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
'Dim Cstr as String habe es auch schon mit
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "C:\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"

Application.ScreenUpdating = False
 
strDatei = ActiveWorkbook.FullName
 
        strbody = "<font face=Arial>Sehr geehrter Damen und Herren,</font><br><br>" & _
        "<font face=Arial>im Anhang finden Sie die aktuelle FO Liste."

With Mail
.GetInspector.Display
.To = Worksheets("Mail").Range("D26") ' wennn hier die Mailadresse fix hinterlegt wird funktioniert alles
'.To = CStr(Worksheets("Mail").Range("D26")) habe es auch schon so probiert
.Subject = "Aktuelle FO Liste_" & Format(Date, "DD.MM.YYYY") 'Betreff
.HTMLBody = strbody & "<br>" & .HTMLBody
.Attachments.Add strDatei

Sheet Name ist korrekt Range Zelle ist korrekt

Kann mir bitte wer sagen was hier im Code falsch ist

Schöne Grüße Brigitte