Send outlook emails vb.net

[sasasasa]

How can I send emails from my Microsoft Outlook through my code.
Dim OlApp As Outlook.Applica tion doesn't even work for me. Any help will be appreciated.

[Richard Woodard]

You can try something like:

Private Sub Email_Click(ByVal strRecipient As String, ByVal strSubject As String, ByVal strMessageBody As String) 
    Dim oOLApp As New Outlook.Application
    Dim oNameSpace As Outlook.NameSpace
    Dim oMAPIFolder As Outlook.MAPIFolder
    Dim oMailMsg As Outlook.MailItem
    oNameSpace = oOLApp.GetNamespace(Type:="MAPI")
    oMailMsg = oOLApp.CreateItem(Outlook.OlItemType.olMailItem)
    oMAPIFolder = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)

    With oMailMsg
        .Recipients.Add(strRecipient)
        .Subject = strSubject
        .Body = strMessageBody
        .Display()
    End With
End Sub