VBA / Create an email: To-Adress is empty

[Dieter]

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

Topic