Need a little email help ...

[BrooksR]

I'm an experienced VBA developer with little knowledge of GW. I'm having partial success with the following code, which I found on GW's website. The email address resolves, a valid message ID is issued, the email shows up in the sent box, but the recipient never receives the message.

You can see that I tried 3 variations on the recipient's name. They all resolve, but are not delivered. What am I doing wrong?

Thanks!

Dim objApp As Application2
Dim objAccount As Account
Dim objDraftMsg As Message
Dim objSentMsg As Message
Dim objRecip As Recipient

Set objApp = CreateObject("NovellGroupWareSession&quot
' Tried both ways
'Set objAccount = objApp.Login("", "&quot
Set objAccount = objApp.Login("username", "password&quot

CommandSendMail.Enabled = True

Set objDraftMsg = objAccount.WorkFolder.Messages.Add ' create draft in work folder

objDraftMsg.Subject = "test at " & Now

objDraftMsg.BodyText = "this is a test"

' Tried all 3
Set objRecip = objDraftMsg.Recipients.Add("firstname.lastname@companyname.com", egwTo) ' to self
'Set objRecip = objDraftMsg.Recipients.Add("Lastname, Firstname", egwTo) ' to self
'Set objRecip = objDraftMsg.Recipients.Add("Firstname Lastname", egwTo) ' to self

Call objRecip.Resolve
If objRecip.Resolved <> egwResolved Then
MsgBox &quot;Did not resolve&quot;
Else
MsgBox &quot;Resolved ok&quot;
End If

Set objSentMsg = objDraftMsg.Send
MsgBox objSentMsg.MessageID
' Thought these might help, but they didn't
'objSentMsg.Refresh
'objAccount.Refresh

Set objDraftMsg = Nothing
Set objAccount = Nothing
Set objApp = Nothing

 

[michigan]

Hi BrooksR -

Perhaps these may shed some light on your situation:

http://developer.novell.com/research/appnotes/2000/december/03/apv.htm

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_11388238.html

Good Luck

 

[BrooksR]

Michigan:

Thanks! The 2nd link was particularly helpful.

Brooks