Keskustelu: Ohjelmointikysymykset: VB6: sähköpostin lähetys (vb)

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


Private Sub Form_Load()
    MAPISession1.SignOn
    txtMessage = Form1.RichTextBox1.Text 'tässä siis viestisi
    CenterForm Me 'keskittää formin, jätä pois 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