Private Sub SendMail
dim sMessage as string
dim sAdress
MAPISession1.SignOn
sMessage = "This is a test"
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.MsgNoteText = sMessage
.MsgSubject = "Registratie"
.RecipIndex = 0
.RecipAddress = "registratie@swsystems.nl"
.Send False
End With
MAPISession1.SignOff
End Sub
Comments
:
I believe Outlook and other mail software supports Automation. You need to reference their automation libraries.
Best Regards,
Richard
The way I see it... Well, it's all pretty blurry
: try using vb.net
:
indeed it is possible to receive and send emails via a pop eg. smtp-server.
use the winsock control to connect and receive data.
This works for me:
Private Sub SendMail
dim sMessage as string
dim sAdress
MAPISession1.SignOn
sMessage = "This is a test"
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.MsgNoteText = sMessage
.MsgSubject = "Registratie"
.RecipIndex = 0
.RecipAddress = "registratie@swsystems.nl"
.Send False
End With
MAPISession1.SignOff
End Sub