Hallo Comunity,
wir haben im David fx12 ein Script zur automatisierten Bereitstellung von Mails erstellt und erhalten einen Automatisierungsfehler. Vielleicht kann einer von euch mal drüberschauen, was wir falsch gemacht haben. Hier das Script:
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
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.LogOn("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)
Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)
l = oMailItem.Recipients.Add(InputTo, "MAIL", "")
oMailItem.subject = InputSubject
oMailItem.BodyText.PlainText = InputBodyText
oMailItem.Options.userHold = userHold
If StrComp(InputAttachment, "noAttttach", vbTextCompare) <> 0 Then
Set oAttachment = oMailItem.Attachments.Add(InputAttachment)
End If
oMailItem.Send
Die Fehlermeldung lautet:
Automatisierungsfehler Nicht initialisiertes Objekt
--> Database1.basTobitVersand.tobitMailVersand, #2, Set oAccount = oApp.LogOn("", "", "", "", "", "AUTH")
Für nützliche Hinweise wäre ich euch sehr dankbar
Ralf