Sends an e-mail using MAPI
Original Author: Dave Greenwood
Assumptions
place two mapi controls on a form
set mapi user name and password
Code
MAPIsession1.SignOn
if mapisession1.sessionID <> 0 then
with mapimessages1
.sessionid = MapiSession1.sessionID
.compose
.recipdisplayname "YOUR NAME"
recipaddress = "me@myipdomain.com"
.msgsubject = "SUBJECT"
.msgnotetext= "Message"
.send false
end with
mapisession1.signoff
end if