Hi everyone,
I'm working on a contacts database for my office. The database itself is in Access, but I've added some features allowing users to send emails from Outlook. One of the features is an "email this information to someone else" button. The idea is to generate a message containing the current record's information in the body of a new email. The new message then pops up on the screen for the user to designate a recipient, make (or not make) any changes, and send it along. The button is working as planned with one major annoyance, the user's default email signature doesn't appear on the new message. Does anyone know a way to make the signature appear?
I tried posting this question in the Access modules forum, with no luck, so I decided to try here as well.
Thanks a ton for your thoughts,
CJ
Here's an abbreviated version of my code...
---------------------------------------------------------
Dim objOutlook As Outlook.Application
Dim objMessage As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.Application"
Set objMessage = CreateItem(olMailItem)
'set subject line as contact name
objMessage.Subject = "Contact information for " & "string expression with contact's name"
'set body as contact info (home & work)
objMessage.Body = "string expression with relevent info"
'display msg
objMessage.Display
'clean-up
Set objMessage = Nothing
Set objOutlook = Nothing
I'm working on a contacts database for my office. The database itself is in Access, but I've added some features allowing users to send emails from Outlook. One of the features is an "email this information to someone else" button. The idea is to generate a message containing the current record's information in the body of a new email. The new message then pops up on the screen for the user to designate a recipient, make (or not make) any changes, and send it along. The button is working as planned with one major annoyance, the user's default email signature doesn't appear on the new message. Does anyone know a way to make the signature appear?
I tried posting this question in the Access modules forum, with no luck, so I decided to try here as well.
Thanks a ton for your thoughts,
CJ
Here's an abbreviated version of my code...
---------------------------------------------------------
Dim objOutlook As Outlook.Application
Dim objMessage As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.Application"
Set objMessage = CreateItem(olMailItem)
'set subject line as contact name
objMessage.Subject = "Contact information for " & "string expression with contact's name"
'set body as contact info (home & work)
objMessage.Body = "string expression with relevent info"
'display msg
objMessage.Display
'clean-up
Set objMessage = Nothing
Set objOutlook = Nothing