Email mit David Tobit
Fuhrmann
ich möchte per Makro eine Email mit David Tobit senden. Das Problem ist, dass sobald ich mehr als 4 Emailempfänger in der Variablen sAdresse habe, wird die Email nicht versendet.
Makro dazu siehe hier:
Sub david_tobit_mail()
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oMailItem As DvApi32.MailItem
Dim oAttachment As DvApi32.Attachment
Dim l As Long
Dim sAdresse As String
Dim sAufDat As String
Dim sHinweis As String
Dim chtPicture As Chart
Dim strSheetName As String
Dim c As Range
Application.ScreenUpdating = False
On Error GoTo Fehler
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)
Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)
sAdresse = c
l = oMailItem.Recipients.Add(sAdresse, "MAIL", "") ' <-- sAdresse kann maximal 4 Emailempfänger enthalten!
Wer kann mir bei diesem speziellen Problem weiterhelfen?
Gruß
Frederik Fuhrmann