I am creating a tool within Access to send out notifications to a list of users within an Access database. I need these emails to come from a proxy account, as opposed to my own login. When using my own login, the code works great, but when using the proxy, the mail sends, but it crashes Access. Has anyone seen this before, and is there a fix? I am using Novell GroupWise 12 as my client. My code is below (proprietary information removed):
Dim db As Database, rs As Recordset, sql As String, rsUpd As Recordset
Set db = CurrentDb()
sql = "SELECT * from ..." _
Set rs = db.OpenRecordset(sql)
Dim objGroupWise As Object
Dim objAccount As Object
Dim objProxyAcct As Object
Dim objMessages As Object
Dim objMessage As Object
Dim objMailBox As Object
Dim objRecipients As Object
Dim objRecipient As Object
Dim objAttachment As Object
Dim objAttachments As Object
Dim objMessageSent As Variant
Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String
Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objAccount = objGroupWise.Login
Set objProxyAcct = objAccount.Proxy("Proxy Mailbox Name")
Set objMailBox = objProxyAcct.MailBox
Set objMessages = objMailBox.Messages
Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft")
Do While Not rs.EOF
Subject = "..."
Attachment = rs("Attachment")
Recipient = rs("mgrEmail")
Bodytext = "Dear..."
Set objRecipients = objMessage.Recipients
Set objRecipient = objRecipients.Add(Recipient, "NGW", 0)
Set objAttachments = objMessage.Attachments
Set objAttachment = objAttachments.Add(Attachment)
With objMessage
.Subject = Subject
.Bodytext = Bodytext
End With
Set objMessageSent = objMessage.Send
Dim db As Database, rs As Recordset, sql As String, rsUpd As Recordset
Set db = CurrentDb()
sql = "SELECT * from ..." _
Set rs = db.OpenRecordset(sql)
Dim objGroupWise As Object
Dim objAccount As Object
Dim objProxyAcct As Object
Dim objMessages As Object
Dim objMessage As Object
Dim objMailBox As Object
Dim objRecipients As Object
Dim objRecipient As Object
Dim objAttachment As Object
Dim objAttachments As Object
Dim objMessageSent As Variant
Dim Subject As String, Attachment As String, Recipient As String, Bodytext As String
Set objGroupWise = CreateObject("NovellGroupWareSession")
Set objAccount = objGroupWise.Login
Set objProxyAcct = objAccount.Proxy("Proxy Mailbox Name")
Set objMailBox = objProxyAcct.MailBox
Set objMessages = objMailBox.Messages
Set objMessage = objMessages.Add("GW.MESSAGE.MAIL", "Draft")
Do While Not rs.EOF
Subject = "..."
Attachment = rs("Attachment")
Recipient = rs("mgrEmail")
Bodytext = "Dear..."
Set objRecipients = objMessage.Recipients
Set objRecipient = objRecipients.Add(Recipient, "NGW", 0)
Set objAttachments = objMessage.Attachments
Set objAttachment = objAttachments.Add(Attachment)
With objMessage
.Subject = Subject
.Bodytext = Bodytext
End With
Set objMessageSent = objMessage.Send