Keskustelu: Koodit: VB6: Sähköpostin lähetys

'Add 3 text boxes and name them txtSendto, txtSubject
'& txtMessage and a command button with name cmdSend
'lisää myös MAPImessages1 ja MAPIsession1 kontrollit

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
    MAPISession1.SignOn
    txtMessage = "kiva nähä sua taase" ' viestisi
    CenterForm Me 'keskittää formin,poista jos valittaa
End Sub
Private Sub Form_Unload(Cancel As Integer)
    MAPISession1.SignOff
End Sub
Private Sub cmdSend_Click()
On Error GoTo errhandler
    With MAPIMessages1
        .MsgIndex = -1
        .RecipDisplayName = txtSendto.Text
        .MsgSubject = txtSubject.Text
        .MsgNoteText = txtMessage.Text
        .SessionID = MAPISession1.SessionID
        .Send
    End With
    MsgBox "Message sent!", , "Send Message"
Exit Sub
errhandler:
MsgBox ("Ehkä sähköposti-asetukset tässä koneessa eivät ole paikallaan tai " + Chr(13) + Chr(10) + "kirjoitit osoitteen väärin")

End Sub