Hi all,
I'm trying to set up an e-mail using API and start the groupwise message-dialog. All data is visible; except for the receipient.
After using
gwReceipient = gwMessage.Receipients.Add("validadress")
gwReceipient.Resolve()
the value within gwReceipient.Resolved = 3 /* which means resolved */
even displaying gwReceipient.EmailAddress and gwReceipient.DisplayName show the right data.
The e-mailscreen is opened by a "groupwisecommander" using method OpenItem. All works fine, even attachments, but the receipient-field (to) remains empty.
I have only a local groupwise client (7.0.3) installed (no novell here in the building)
Any suggestions?
Regards
Peter
Some of the (Progress ABL/4GL) code below here:
create "NovellGroupWareSession" gwApp no-error.
gWAccount = gwApp:Login.
gwMessage = gwAccount:MailBox:Messages:Add().
gwMessage:FromText = "no-reply@mydomain.nl".
gwMessage:Subject = "Complaint Form".
gwMessage:BodyText = "Please review the enclosed complaint form".
gwReceipient = gwMessage:Recipients:Add("peter@mydomain.nl").
gwReceipient:Resolve().
MessageId = gwMessage:MessageId.
create "GroupwiseCommander" gwCom no-error.
cQuotes = """".
gwSend = "ItemOpen(" + cQuotes + MessageId + cQuotes + ")".
GWerror = GWCom:Execute(gwSend,"").
I'm trying to set up an e-mail using API and start the groupwise message-dialog. All data is visible; except for the receipient.
After using
gwReceipient = gwMessage.Receipients.Add("validadress")
gwReceipient.Resolve()
the value within gwReceipient.Resolved = 3 /* which means resolved */
even displaying gwReceipient.EmailAddress and gwReceipient.DisplayName show the right data.
The e-mailscreen is opened by a "groupwisecommander" using method OpenItem. All works fine, even attachments, but the receipient-field (to) remains empty.
I have only a local groupwise client (7.0.3) installed (no novell here in the building)
Any suggestions?
Regards
Peter
Some of the (Progress ABL/4GL) code below here:
create "NovellGroupWareSession" gwApp no-error.
gWAccount = gwApp:Login.
gwMessage = gwAccount:MailBox:Messages:Add().
gwMessage:FromText = "no-reply@mydomain.nl".
gwMessage:Subject = "Complaint Form".
gwMessage:BodyText = "Please review the enclosed complaint form".
gwReceipient = gwMessage:Recipients:Add("peter@mydomain.nl").
gwReceipient:Resolve().
MessageId = gwMessage:MessageId.
create "GroupwiseCommander" gwCom no-error.
cQuotes = """".
gwSend = "ItemOpen(" + cQuotes + MessageId + cQuotes + ")".
GWerror = GWCom:Execute(gwSend,"").