Trying to add subject and name to an email using VB Code

Status
Not open for further replies.
P

pjeanphilippe

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Hi:

I am fairely new to coding, so pardon the ignorance. I am trying to use Visual Basic to create a couple of macros for me in Outlook 2010. It works fine until I try to insert a code for Subject, then everything goes awry. I haven't even tried to insert text into the coding because I have been spending most of my time debugging the issue. I've looked into so many different websites and no information has worked thus far. Please help.

Thank you so much.

Sub Try()
Dim olApp As Outlook.Application
Dim olMailItem As Outlook.MailItem
Dim olInsp As Outlook.Inspector
Dim strHTMLBody As String
Dim olMsg As Outlook.MailItem

Set olApp = New Outlook.Application
Set olInsp = olApp.ActiveInspector
Set olMsg = Application.CreateItem(olMailItem)

olMsg.Subject = "My Subject"
olMsg.Display

strHTMLBody = olMailItem.HTMLBody
olMailItem.BodyFormat = olFormatHTML
olMailItem.HTMLBody = "<HTML><BODY><FONT face=""Calibri"" size=3 color=black> Hi [name of person]:" & _
"<BR><BR> Can you blah blah blah <b>[Name of Course]</b> in <b>[enter Month]</b>?" & _
"<BR><BR><BR> When done, can you blah blah blah?" & _
"<BR><BR> Thank you so much. </FONT></BODY></HTML>" & vbCrLf & vbCrLf & strHTMLBody

End Sub
 
What exactly are you trying to do? Your code mixes olmsg and olmailitem.

This code creates a new message without error:
Sub Try()
Dim strHTMLBody As String
Dim olMsg As Outlook.MailItem
Set olMsg = Application.CreateItem(olMailItem)
olMsg.Subject = "My Subject"
olMsg.Display
strHTMLBody = olMsg.HTMLBody
olMsg.HTMLBody = "<HTML><BODY><FONT face=""Calibri"" size=3 color=black> Hi [name of person]:" & _
"<BR><BR> Can you blah blah blah <b>[Name of Course]</b> in <b>[enter Month]</b>?" & _
"<BR><BR><BR> When done, can you blah blah blah?" & _
"<BR><BR> Thank you so much. </FONT></BODY></HTML>" & vbCrLf & vbCrLf & strHTMLBody
olMsg.BodyFormat = olFormatHTML
End Sub

if you are trying to pick up a value from a contact, see http://www.slipstick.com/developer/create-deferred-birthday-message-contact/ for code samples.
 
Diane:

Thank you so much! This was exactly what I was trying to do! I tried it and it worked perfectly.

I do have one more question though: what is the code for adding a person's email address to the To: and cc: field and how can it be added to this coding?

Again, you are a lifesaver!

Much Appreciated,

PJ

Diane Poremsky said:
What exactly are you trying to do? Your code mixes olmsg and olmailitem.

This code creates a new message without error:

Sub Try()

Dim strHTMLBody As String

Dim olMsg As Outlook.MailItem

Set olMsg = Application.CreateItem(olMailItem)

olMsg.Subject = "My Subject"

olMsg.Display

strHTMLBody = olMsg.HTMLBody

olMsg.HTMLBody = "<HTML><BODY><FONT face=""Calibri"" size=3 color=black> Hi [name of person]:" & _

"<BR><BR> Can you blah blah blah <b>[Name of Course]</b> in <b>[enter Month]</b>?" & _

"<BR><BR><BR> When done, can you blah blah blah?" & _

"<BR><BR> Thank you so much. </FONT></BODY></HTML>" & vbCrLf & vbCrLf & strHTMLBody

olMsg.BodyFormat = olFormatHTML

End Sub

if you are trying to pick up a value from a contact, see http://www.slipstick.com/developer/create-deferred-birthday-message-contact/ for code samples.
Click to expand...
 
Status
Not open for further replies.
< Form disappears when replying to it | Recurring invitations for a recurring meeting >
Similar threads
Thread starter Title Forum Replies Date
e_a_g_l_e_p_i I can't believe what I am seeing when trying to install Outlook 2021 Using Outlook 9
C Trying to move messages between imap accounts/folders Using Outlook 5
J Outlook 2016 Trying to get Outlook 2016 to work with Office 365 Using Outlook 0
U Outlook not responding when trying to print Emails Using Outlook 6
e_a_g_l_e_p_i Trying to customize the ribbon but can't figure this one out Using Outlook 3
B Outlook 2016 Outlook crashes when trying to print certain emails Using Outlook 5
M outlook 365 trying to finish my sentences Using Outlook 2
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
X I have met my waterloo trying to resolve embedded graphics problem with outlook 2007 and now 2016 Using Outlook 1
O The page that you are trying to access cannot be loaded. Using Outlook 0
C Trying to populate an appointment ComboBox from Excel Outlook VBA and Custom Forms 2
T Outlook "A program is trying to access Outlook" Using Outlook 3
S SendFromAccount - Problem trying to test existing value in open email Outlook VBA and Custom Forms 2
N Error 0x80090326 when trying to setup IMAP account on Outlook.com Using Outlook.com accounts in Outlook 1
KURTiS MAXiMUS Trying to appactivate ERP window Outlook VBA and Custom Forms 16
R Trying to extract information between two symbols from outlook subject Using Outlook 2
Danie Lawson Trying to recover calendar Using Outlook 4
L Trying to open contacts pst. file in outlook 365 Using Outlook 3
L Trying to check for the absence of mail. Outlook VBA and Custom Forms 1
M trying to disable junk email filter. completely. Using Outlook 4
D Trying to repair Outlook rules Using Outlook 5
S Outlook 2010 trying to default Data file to outlook.com calendar Using Outlook 6
C Trying to move my Business Contact Manager ver. 2003 to BCM ver. 2010 Using Outlook 3
R Trying to sync my Outlook email on iphone Using Outlook 1
A outlook trying to keep sending Using Outlook 1
B Trying to get old emails from a not working computer but having trouble. Using Outlook 6
P Outlook works, but freezes when trying to use calender v2007 (vista prof) Using Outlook 1
K A program is trying to send an e-mail message on your behalf... Using Outlook 1
P Trying to get 'Calendar Name' to appear like 'Subject' and 'Location' in event Using Outlook 0
S Trying to have a prompt to ask for text to be added to subject before sending. Using Outlook 3
A Trying to connect to exchange Exchange Server Administration 3
K Wont send or recieve now with new server keeps asking for password when trying Using Outlook 1
D Outlook "Trying to Connect" Exchange Server Administration 1
P Word experienced and error trying to open the file Using Outlook 2
S Trying to install BCM 2010 x64, getting error BCM (Business Contact Manager) 8
D Outlook 2003 - A program is trying to access e-mail addresses Outlook VBA and Custom Forms 5
S Trying to create a UPS from Outlook VBA and Custom Forms 2
T Trying to start Outlook from VBA or VBS not working. Outlook VBA and Custom Forms 4
S how to disable security message in save attachments macro "A programis trying to access e-mail addre Outlook VBA and Custom Forms 5
A Error: 3033 when trying to OpenDatabase using DAO Outlook VBA and Custom Forms 3
U Recovered PST file "Cannot move item" error when trying to move e- Using Outlook 6
D Error trying to connect to database on the server BCM (Business Contact Manager) 1
D Trying to reconnect BCM databases in Outlook 2003 BCM (Business Contact Manager) 1
T Add Account Using Outlook 1
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0

Similar threads

Back
Top