How to create a mail in outlook using vba

**onkar** · 06-15-2011, 07:05 AM

any help is appreciated

**maczaq** · 07-06-2011, 05:03 AM

try this code

Private Sub sendEmail()
  Dim objMsg As MailItem
  ' create new outgoing message
  Set objMsg = Application.CreateItem(olMailItem)
   ' your reminder notification address
  objMsg.To = "email_address@someware.com"
  objMsg.Subject = "title"
  objMsg.HTMLBody = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'><HTML xmlns:st1 = 'urn:schemas-microsoft-com:office:smarttags' xmlns:o ='urn:schemas-microsoft-com:office:office'><HEAD><META http-equiv=Content-Type content='text/html; charset=windows-1250'></HEAD><BODY><font face=Arial size=2>some example text here ... but here you can add any valid HTML code or text</font></BODY></HTML>"
  'send the message
  objMsg.Send
  Set objMsg = Nothing
End Sub

It should works

Best Regards
MaczaQ (usually on forum Excel programming)

Thread: How to create a mail in outlook using vba

Thread Tools

Rate This Thread

Display

How to create a mail in outlook using vba

Re: How to create a mail in outlook using vba

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions