Public Function startOutlook(ByVal toVal As String, ByVal subjectVal As _
   String, ByVal bodyVal As String)
        'Return a reference to the MAPI layer
        Dim ol As New Outlook.Application
        Dim ns As Outlook.NameSpace
        Dim fdMail As Outlook.MAPIFolder
 
        ns = ol.GetNamespace("MAPI")
 
        'Logs on the user
        'Profile: This is a string value that indicates what MAPI profile to 
        ' use for logging on. Leave blank if using the currently logged on 
        ' user, or set to an empty string ("") if you wish to use the default 
        ' Outlook Profile. 
        'Password: The password for the indicated profile. Leave blank if using 
        ' the currently logged on user, or set to an empty string ("") if you 
        ' wish to use the default Outlook Profile password. 
        'ShowDialog: Set to True to display the Outlook Profile dialog box. 
        'NewSession: Set to True to start a new session. Set to False to use 
        ' the current session. 
        ns.Logon(, , True, True)
 
        'create a new MailItem object
        Dim newMail As Outlook.MailItem
 
        'gets defaultfolder for my Outlook Outbox
        fdMail = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail)
 
        'assign values to the newMail MailItem
        newMail = fdMail.Items.Add(Outlook.OlItemType.olMailItem)
        newMail.Subject = subjectVal
        newMail.Body = bodyVal
        newMail.To = toVal
        newMail.SaveSentMessageFolder = fdMail
 
 
        'adds it to the draft box
        'newMail.Save()
 
        'adds it to the outbox
        newMail.Send()
        newMail = Nothing
 
 
 
 
    End Function