Example - Sending email in Vb app

I would like to see an example of sending a simple email msg from within VB - but, I don't want to use the MAPI control.
edvedAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
MirkwoodConnect With a Mentor Commented:
Here is an example of using OLE Messaging to send a message:

Dim oSession As Object
 
Set oSession = CreateObject("MAPI.Session")
oSession.Logon "MS Exchange Settings", True
Dim objMessage As Object ' Message object
Dim objOneRecip As Object ' Recipient object
 
If oSession Is Nothing Then
MsgBox "You have to log on first...."
Exit Sub
End If
 
Set objMessage = oSession.Outbox.Messages.Add
' create the recipient
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = "Rickcau@Microsoft.com"
objOneRecip.Type = mapiTo
objOneRecip.Resolve (True) 'Show dialog to resolve ambiguities
With objMessage ' message object
subject = "Test MAPI/OLE VB Message w/ole object - explicit"
Text = "Like you really wanted this ... please delete this test"
End With
' send the message
objMessage.Send showDialog:=False

For more information on direct MAPI calls and OLE Messaging, in the MSDN Library, see the book Win32 Messaging API (MAPI) in the Win32 SDK.

VB4: VBMAIL.ZIP MAPI sample to send/retrieve mail (VB4) at http://www.geocities.com/~scvb/allfiles.htm
0
 
edvedAuthor Commented:
Mirkwood,Thanks for the reply.

Question: Are the "subject" and "text" objects string variables? How can I set the "text" object to point to a text file?
0
 
MirkwoodCommented:
DO you mean "add an attachment" or you want to use a file as source for your email.

I think you mean the second and in that case I have to disappoint you. You just have to read the file and copy it to the text property.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.