Hallo zusammen,
kann sich bitte mal jemand nachstehenden code anschauen:
ich lese mit e email-Adressen aus einer Tabelle aus, z ist der Zähler für die Schleife und t bestimmt das Ende der Schleife.
Die Variable e soll dann der Inhalt des Arrays sein, um das Blatt zu versenden.
Leider kommt immer die Fehlernummer 1004!
Was mache ich falsch - kann man ein Array in der Art schreiben
----Ausschnitt-----Beginn
z = ActiveCell.Row + 1
e = ""
e = wksDE.Cells(z, 2)
z = z + 1
Do Until t = "eof"
e = e & "''" & ", " & "''" & wksDE.Cells(z, 2)
'hier werden weitere email-Adressen in "" geschrieben und an schon vorhandene angefügt
z = z + 1
t = wksDE.Cells(z, 2)
Loop
On Error Resume Next
ActiveWorkbook.SendMail Array(e), "aktuelle Übersicht StIKS"
If Err.Number größer 0 Then MsgBox "Mail wurde nicht versandt!"
On Error GoTo 0
---Auschschnitt-----Ende