• Home
 · 
• Internet/HTML
 · 
• Email with MAPI. Simply add the code to a form and run it.

Email with MAPI. Simply add the code to a form and run it.

Email with MAPI. Simply add the code to a form and run it.

Rate Email with MAPI. Simply add the code to a form and run it.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

With MAPISession1
        .DownLoadMail = False
        .LogonUI = True
        .SignOn
        
        MAPIMessages1.SessionID = .SessionID
        ComposeMessage
End With
End Sub


Private Sub ComposeMessage()
    On Error GoTo ComposeErr
    Dim subjecttxt As String
    Dim address As String

    subjecttxt = "insert subject text here"
    address = "insert address here"
   
    
    With MAPIMessages1
        .Compose
        .RecipDisplayName = address
        .MsgSubject = subjecttxt
        .ResolveName
        .Send True
    
    End With
    
    Exit Sub

ComposeErr:
    Debug.Print Err.Number, Err.Description
    Resume Next
End Sub