Email in VB

Imports Microsoft.Office.Interop
Imports System.IO
 
Public Class Office
 
 
    Public Sub SendMAPIEmail(ByVal sFrom As String, ByVal sTo As String, ByVal sCC As String, ByVal sBCC As String, _
            ByVal sSubject As String, ByVal sBody As String, ByRef sAttachment() As String, _
            Optional ByVal Preview As Boolean = False, Optional ByVal bSave As Boolean = False, Optional ByVal move_to_folder As String = "", _
            Optional ByVal HighImport As Boolean = False, Optional ByVal HTMLBody As String = "")
 
        Dim objOutlook As New Microsoft.Office.Interop.Outlook.Application
        Dim objMail As Microsoft.Office.Interop.Outlook.MailItem
        Dim objAttachment As Microsoft.Office.Interop.Outlook.Attachment
        Dim i As Int32
        Dim mfolder As Outlook.MAPIFolder
        Dim errmsg As String
 
        Try
 
            ' Logon to Outlook
            objOutlook.Session.Logon()
            
            ' Create new e-mail item and populate
            objMail = objOutlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
            objMail.SentOnBehalfOfName = sFrom
            objMail.To = sTo
            objMail.CC = sCC
            objMail.BCC = sBCC
 
            objMail.Subject = sSubject
 
            objMail.Body = sBody
                        
            ' Set the importance if necessary
            If HighImport Then objMail.Importance = Outlook.OlImportance.olImportanceHigh            
            
            If HTMLBody <> "" Then objMail.HTMLBody = HTMLBody
 
            ' sAttachment is a string array of file path/names to attach
            If Not IsNothing(sAttachment) Then
                For i = LBound(sAttachment) To UBound(sAttachment)
                    If File.Exists(sAttachment(i)) Then
                        objAttachment = objMail.Attachments.Add(sAttachment(i))
                    Else
                        MsgBox("You are attempting to attach a file that does not exist: " & sAttachment(i) & " The e-mail will be generated without this attachment.", MsgBoxStyle.Information, "Generate E-Mail")
                    End If
                Next
            End If
 
            ' If the user is going to preview before sending the e-mail, then save it as a draft and open Outlook for display
            If Preview Then
                If bSave Then
                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Save()
                End If
 
                CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Display()
            Else
                ' If directed to save into another folder, then save it as a draft then move it to the appropriate folder
                If bSave Then
                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Save()
 
                    ' On our exchange server, we might have a mailbox named 'Purchase Orders' so, we would navigate to that folder
                    ' then save the e-mail in the Draft folder under that mailbox
                    If move_to_folder <> "" Then
                        'for "Mailbox - xxx"
                        Try
                            mfolder = objOutlook.GetNamespace("MAPI").Folders(move_to_folder)
                            mfolder = mfolder.Folders("Drafts")
                            CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Move(mfolder)
 
                        ' If the folder doesn't exist, or this user isn't a member of that group, then it will generate an error
                        ' so, you have to have A LOT of error handling
                        Catch x As Exception
 
                            errmsg = x.Message
                            Try
                            
                                ' Sometimes a particular mailbox might appear as  "Purchase Orders', sometimes as 'Mailbox - Purchase Orders'
                                ' so, if the first try didn't succeed, then try again without the 'Mailbox -'
                                If move_to_folder.StartsWith("Mailbox - ") Then
                                    move_to_folder = Replace(move_to_folder, "Mailbox - ", "")
                                    mfolder = objOutlook.GetNamespace("MAPI").Folders(move_to_folder)
                                    mfolder = mfolder.Folders("Drafts")
                                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Move(mfolder)
                                Else
                                    MsgBox("Cannot Find Mailbox " & move_to_folder & " Will display the E-Mail being generated for you to save to another location. " + errmsg, MsgBoxStyle.Information)
                                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Display()
                                End If
 
                            Catch ex As Exception
 
                                MsgBox(ex.Message)
                                Try
                                    Dim oFolder As Outlook.MAPIFolder
                                    For Each oFolder In objOutlook.GetNamespace("MAPI").Folders
                                    
                                        ' If finding the folder by the exact name didn't work, then loop through all the folders they have
                                        ' looking for one that might have a similar name
 
                                        If move_to_folder.IndexOf("Purchase") > -1  And oFolder.Name.IndexOf("Orders") > -1 Then
                                            mfolder = oFolder
                                            mfolder = mfolder.Folders("Drafts")
                                            CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Move(mfolder)
                                            Exit For
                                        End If
 
                                        If move_to_folder.IndexOf("Invoice") > -1 And oFolder.Name.IndexOf("Orders") > -1 Then
                                            mfolder = oFolder
                                            mfolder = mfolder.Folders("Drafts")
                                            CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Move(mfolder)
                                            Exit For
                                        End If
 
                                    Next
 
                                Catch exx As Exception
                                
                                    ' If that didn't work, then give up and display the e-mail to the user with an error message about being
                                    ' unable to save it to the Draft folder
                                    
                                    MsgBox(exx.Message)
                                    MsgBox("Cannot Find Mailbox " & move_to_folder & " Will display the E-Mail being generated for you to save to another location.", MsgBoxStyle.Information)
                                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Display()
                                End Try
                            End Try
                        End Try
 
                    End If
                Else
                    ' Or, just send the e-mail out directly, without bothering to save it to any folder (will end up in Sent Items)
                    CType(objMail, Microsoft.Office.Interop.Outlook._MailItem).Send()
                End If
            End If
 
        Catch x As Exception
            MsgBox(x.Message)
        Finally
            ' You don't need to Quit outlook... that might kill the users session if they have it open
            'CType(objOutlook, Microsoft.Office.Interop.Outlook._Application).Quit()
            
            ' But, you need to release the marshalled resources of the COM objects
            NAR(objOutlook)
            NAR(objMail)
            NAR(objAttachment)
            GC.Collect()
        End Try
 
    End Sub
    
        Private Sub NAR(ByVal o As Object)
            Try
                System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
            Catch x As Exception
                'MsgBox(x.Message)
            Finally
                o = Nothing
            End Try
        End Sub
End Class

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160: