banneduser123
Banned - Rules violations
- Joined
- Mar 29, 2006
- Messages
- 181
Hi,
I'm trying to use this macro to send an email. Let me try to explain:
1. need email to include default Outlook signature
2. want to be able to multi-task in Outlook
When I use this macro, it composes a new email.
When the email window pops up, i'm not able to click on any other Outlook windows. i'm restricted to finishing this new email before i can do anything else in Outlook.
Also, the new email doesn't include my assigned Outlook signature.
I hope that was clear.
I'm wondering where in my code it creates this behavior? Or how i can fix it?
Thanks
**code below:
I'm trying to use this macro to send an email. Let me try to explain:
1. need email to include default Outlook signature
2. want to be able to multi-task in Outlook
When I use this macro, it composes a new email.
When the email window pops up, i'm not able to click on any other Outlook windows. i'm restricted to finishing this new email before i can do anything else in Outlook.
Also, the new email doesn't include my assigned Outlook signature.
I hope that was clear.
I'm wondering where in my code it creates this behavior? Or how i can fix it?
Thanks
**code below:
VBA Code:
[Sub CD_Prep()
Dim OL As New Outlook.Application
Dim olMail As Outlook.MailItem
Set olMail = OL.CreateItem(olMailItem)
Dim SrcSheet As Excel.Worksheet
Set SrcSheet = Sheets("Notes")
With olMail
.To = SrcSheet.Range("A55").Text
.CC = SrcSheet.Range("B55").Text
.Subject = SrcSheet.Range("C55").Text
.Body = SrcSheet.Range("D55").Text
.Display vbModal
'.Send
End With
Set OL = Nothing
End Sub
/CODE]