Hi People
This is cross-posted in the Access - Other Related Topics forum.
I have an Access 97 application that automatically sends out data updates to six state offices by attaching the updates to an outlook message. There are six individual updates sent because each state receives slightly different data.
My problem is that I need to send these updates from a shared Outlook Account, not the default account on the user's PC. There are 4 users of this app, any one of which could be the user required to distribute the updates for a particular period. To ensure that full record of the updates is available to all users a shared mailbox was set up and the users were all given access permissions to it.
A second problem is that the combined size of the six updates is greater than the corporately-established mailbox size limits. By the time the third message and attachment have been sent, the limits have been exceeded and the process is stopped. The shared account does not have this size limit
I am using this code to open Outlook and create the message.
This works exactly the way it should.
Set appOutlook = CreateObject("Outlook.Application"
Set appMail = appOutlook.CreateItem(olMailItem)
With appMail
.To = strName
.Subject = "VERSE-Data Periodic Update " & Date
.Body = "Save this attachment to the designated folder.
Any problems please ring me."
.Attachments.Add strPath & strState &
strDBName, ,1, "New-Data"
.Send
End With
This opens the logged-in user's outlook folders. How can I modify this code to open the shared mailbox and send the messages from there, rather than from the logged in user's account?
Any help gratefully accepted.
Lightning
This is cross-posted in the Access - Other Related Topics forum.
I have an Access 97 application that automatically sends out data updates to six state offices by attaching the updates to an outlook message. There are six individual updates sent because each state receives slightly different data.
My problem is that I need to send these updates from a shared Outlook Account, not the default account on the user's PC. There are 4 users of this app, any one of which could be the user required to distribute the updates for a particular period. To ensure that full record of the updates is available to all users a shared mailbox was set up and the users were all given access permissions to it.
A second problem is that the combined size of the six updates is greater than the corporately-established mailbox size limits. By the time the third message and attachment have been sent, the limits have been exceeded and the process is stopped. The shared account does not have this size limit
I am using this code to open Outlook and create the message.
This works exactly the way it should.
Set appOutlook = CreateObject("Outlook.Application"
Set appMail = appOutlook.CreateItem(olMailItem)
With appMail
.To = strName
.Subject = "VERSE-Data Periodic Update " & Date
.Body = "Save this attachment to the designated folder.
Any problems please ring me."
.Attachments.Add strPath & strState &
strDBName, ,1, "New-Data"
.Send
End With
This opens the logged-in user's outlook folders. How can I modify this code to open the shared mailbox and send the messages from there, rather than from the logged in user's account?
Any help gratefully accepted.
Lightning
