Send emails with this great sniplet of code. Add - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Send emails with this great sniplet of code. Add ...
Author: Ralf Koch
E-mail: Click to e-mail author
Website: http://www.kotech-enterprises.com
Submitted: 1/4/2002
Version: VB4
Compatibility: VB4, VB5, VB6
Category: ActiveX
Views: 15761
Send emails with this great sniplet of code. Add the MAPIMessage and the MAPISession control to your VB App and your are ready to go. This Function uses your default email program (it might ask for verification before sending the email but this can be turned off!)
Declarations:
'none
Code:
Function sendMail() '<CSCM> '-------------------------------------------------------------------------------- ' Project : SEND EMAIL ' Procedure : sendMail ' Description: FUNCTION TO SEND EMAIL BY USING DEFAULT EMAIL PROGRAM ' Created by : Ralf Koch ' Date-Time : 1/4/2002-11:12:21 PM '-------------------------------------------------------------------------------- '</CSCM> ' THIS WILL OPEN YOUR DEFAULT EMAIL PROGRAM WITH THE CONTENT ENTERED IN THIS FUNCTION ' THE EMAIL PROGRAM MIGHT ASK IF YOU WANT TO SEND THE MESSAGE ' THIS BEHAVIOUR CAN BE SUPRESSED BY THE EMAIL PROGRAM ITSELF (OPTIONAL) ' THE MESSAGE ORIGINATOR WILL BE SET BY YOUR UNDERLYING EMAIL SYSTEM AUTOMATICALLY AND ' IS READONLY AT RUNTIME 'MAPI CONSTANTS Const SESSION_SIGNON = 1 Const MESSAGE_COMPOSE = 6 Const ATTACHTYPE_DATA = 0 Const RECIPTYPE_TO = 1 Const RECIPTYPE_CC = 2 Const MESSAGE_RESOLVENAME = 13 Const MESSAGE_SEND = 3 Const SESSION_SIGNOFF = 2 On Error GoTo errorHandler ' OPEN A MAPI SESSION MAPISession1.Action = SESSION_SIGNON MAPIMessages1.SessionID = MAPISession1.SessionID ' START A NEW MESSAGE MAPIMessages1.Action = MESSAGE_COMPOSE ' SUBJECT OF THE MESSAGE MAPIMessages1.MsgSubject = "TYPE YOUR SUBJECT IN HERE..." ' MESSAGE BODY MAPIMessages1.MsgNoteText = "TYPE YOUR MESSAGE BODY IN HERE..." ' SET THE RECIPIENT ' RECIPIENT NUMBER 1 MAPIMessages1.RecipIndex = 0 MAPIMessages1.RecipType = RECIPTYPE_TO MAPIMessages1.RecipDisplayName = "EMAIL ADDRESS FOR 1. RECIPIENT IN TO LINE" ' RECIPIENT NUMBER 2 MAPIMessages1.RecipIndex = 1 MAPIMessages1.RecipType = RECIPTYPE_TO MAPIMessages1.RecipDisplayName = "EMAIL ADDRESS FOR 2. RECIPIENT IN TO LINE" ' RECIPIENT NUMBER 3 MAPIMessages1.RecipIndex = 2 MAPIMessages1.RecipType = RECIPTYPE_CC MAPIMessages1.RecipDisplayName = "EMAIL ADDRESS FOR 3. RECIPIENT IN CC LINE" ' RECIPIENT NUMBER 4 MAPIMessages1.RecipIndex = 3 MAPIMessages1.RecipType = RECIPTYPE_CC MAPIMessages1.RecipDisplayName = "EMAIL ADDRESS FOR 4. RECIPIENT IN CC LINE" ' MESSAGE_RESOLVENAME MAKES SURE YOU ENTERED A VALID EMAIL ADDRESS ' PUTS IT IN MAPIMessages1.RecipAddress ' A TRAPPABLE ERROR WILL OCCUR WHEN EMAIL IS NOT VALID MAPIMessages1.Action = MESSAGE_RESOLVENAME ' SEND THE MESSAGE MAPIMessages1.Action = MESSAGE_SEND ' CLOSE MAPI MAIL SESSION MAPISession1.Action = SESSION_SIGNOFF Exit Function errorHandler: ' PUT YOUR ERROR HANLDING CODE HERE.... End Function