Email

Brug MAPI Session & MAPI Messages og følgende kode :

Option Explicit
Private Sub Cmdsend_Click()
  Dim res As String
              res = Send_eMail(txtSendto, txtSubject, txtSendText)
            If res = False Then
                    MsgBox \"Kunne ikke sende mail\"
            Else
                    MsgBox \"Mail er sendt\"
            End If
End Sub


Public Function Send_eMail(sendto As String, subject As String, _
          text As String) As Boolean
          On Error GoTo ErrHandler
          MAPISession1.SignOn
          MAPIMessages1.SessionID = .SessionID
          With MAPIMessages1
                  .Compose
                  .RecipDisplayName = sendto
                  .AddressResolveUI = True
                  .ResolveName
                  .MsgSubject = subject
                  .MsgNoteText = text
                  .Send
          End With
          Send_eMail = True
          MAPISession1.SignOff
        Exit Function
ErrHandler:
        MsgBox Err.Description
        Send_eMail = False
End Function