/ Forums / Advansys Formativ / Commercial Formativ Solutions by Advansys / VBA / Create an email: To-Adress is empty

  • Creator
    Topic
  • #5187
    Dieter
    Participant

    Hello NG,

    this VB/VBA-Sub is running, yet without display the email-To-adress! :-(

    What am I doing wrong?

    THX!
    Dieter

    My VBA-sourcecode:

    ‘ GroupWise Object API variables: “GroupWare type library”: gwcma1.dll (Productversion: 14.0.1-118418 filedate 2014-11-13 )

    Dim GWApp As Application7
    Dim GWRootAccount As Account
    Dim GWMessages As Messages3
    Dim m As Message3
    Set GWApp = CreateObject(“NovellGroupWareSession”)
    Set GWRootAccount = GWApp.Login(, “/ph-“)
    If GWApp.LoginError <> 0 Then
    MsgBox “Error: ” & GWApp.LoginError, vbOKOnly Or vbExclamation
    ElseIf Not (GWRootAccount Is Nothing) Then
    Set GWMessages = GWRootAccount.WorkFolder.Messages
    Set m = GWMessages.Add(“GW.MESSAGE.MAIL”, CLng(4))
    m.Subject = “Subject”
    m.ViewName = “Subject”
    m.Recipients.Add “Send@to.com”, “Send@to.com”, 0 ‘ <===== didn’t work!!
    m.BodyText.PlainText = “My Content…”

    REM No send, save in “Work in Progress” (ok)!

    ‘ Dereference global objects
    Set GWApp = Nothing
    Set GWRootAccount = Nothing
    Set GWMessages = Nothing
    Set m = Nothing

  • You must be logged in to reply to this topic.