• Home
 · 
• Internet/HTML
 · 
• Send mail using Microsoft Outlook without having to include references in your program.

Send mail using Microsoft Outlook without having to include references in your program.

Send mail using Microsoft Outlook without having to include references in your program.

Rate Send mail using Microsoft Outlook without having to include references in your program.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

                       ByVal SubjectText As String, _
                       ByVal BodyText As String)

   '------------------------------------------------------
   'This has been tested with Outlook98 and 2000...
   'It does not require any project references.
   'Should work with other versions (?)
   '------------------------------------------------------

   Dim objOutlook As Object
   Dim objOutlookMsg As Object

   Set objOutlook = CreateObject("Outlook.Application")
   Set objOutlookMsg = objOutlook.CreateItem(0)

   With objOutlookMsg
      .To = EMailAddress
      .Subject = SubjectText
      .Body = BodyText
      .Send
   End With

   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing

End Sub