Send Email 436.599976 -112 1.25 e0b58522-643b-42ad-8fdd-4cb5246c5558 Sends an Email For a list of valid Sensitivity values, please see https://docs.microsoft.com/en-us/office/vba/api/outlook.olsensitivity For a list of valid Importance values, please see https://docs.microsoft.com/en-us/office/vba/api/outlook.olimportance e0b58522-643b-42ad-8fdd-4cb5246c5558 e0b58522-643b-42ad-8fdd-4cb5246c5558 2f285e28-d6bb-4e7b-be7b-2631c3a8ac84

 "" Then
	Dim toAddresses = Split([To], ";")
	For addressCount = LBound(toAddresses) To UBound(toAddresses)
	Dim recipient = mail.Recipients.Add(toAddresses(addressCount)) 
	recipient.Resolve  
	If recipient.Resolved Then recipient.Type = OlMailRecipientType.olTo
	Next 
	
End if

If CC <> "" Then
	Dim ccAddresses = Split([CC], ";")
	addressCount = 0
	For addressCount = LBound(ccAddresses) To UBound(ccAddresses)
	Dim recipient = mail.Recipients.Add(ccAddresses(addressCount))
	recipient.Resolve
	If recipient.Resolved Then recipient.Type = OlMailRecipientType.olCC 
	Next

End If

If BCC <> "" Then
	Dim bccAddresses = Split([BCC], ";")
	addressCount = 0
	For addressCount = LBound(bccAddresses) To UBound(bccAddresses)
	Dim recipient = mail.Recipients.Add(bccAddresses(addressCount))
	recipient.Resolve
	If recipient.Resolved Then recipient.Type = OlMailRecipientType.olBCC
	Next

End If

mail.Subject = Subject

If Message_Is_HTML Then
	mail.BodyFormat = 2
	mail.HTMLBody = Message
Else
	mail.BodyFormat = 1
	mail.Body = Message
End If

For Each att As String In Attachments.Split(";"c)
	If att = "" Then Continue For
	mail.Attachments.Add(att)
Next

If Sensitivity = Int(Sensitivity) AndAlso (Sensitivity >= 0 And Sensitivity <= 3)
	mail.Sensitivity = Sensitivity
Else
	mail.Sensitivity = 0
End If

If Importance = Int(Importance) AndAlso (Importance >= 0 And Importance <= 2) Then
	mail.Importance = Importance
Else
	mail.Importance = 1
End If

If Not String.IsNullOrEmpty(Shared_Mailbox) Then
	mail.SentOnBehalfOfName = Shared_Mailbox
ElseIf Not String.IsNullOrEmpty(Account_Display_Name) Then
	Try
		Dim _nameSpace As Microsoft.Office.Interop.Outlook.NameSpace = app.GetNameSpace("MAPI")
		Dim aa As List(Of Account) = _nameSpace.Accounts.Cast(Of Account).ToList()
		Dim acct = aa.Where(Function(x) x.DisplayName = Account_Display_Name).FirstOrDefault()
		mail.SendUsingAccount(acct)
	Catch ex As System.Exception
		Dim ex1 As New System.Exception(VbCrlf + "Unable to find Account Display Name '" + Account_Display_Name + "'." + VbCrlf + ex.Message)
		Throw ex1
	End Try
End If

mail.Save
mail.Send]]>

e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 text e0b58522-643b-42ad-8fdd-4cb5246c5558 79296089-edc5-4338-bf95-6734ad47825d e0b58522-643b-42ad-8fdd-4cb5246c5558 e0b58522-643b-42ad-8fdd-4cb5246c5558 flag True e0b58522-643b-42ad-8fdd-4cb5246c5558 number 0 e0b58522-643b-42ad-8fdd-4cb5246c5558 number 1 e0b58522-643b-42ad-8fdd-4cb5246c5558 e0b58522-643b-42ad-8fdd-4cb5246c5558 Optional. DisplayName of the email account. Default account is used if omitted. text e0b58522-643b-42ad-8fdd-4cb5246c5558 Optional. Share Mailbox name or email address. Attempt to call Shared Mailbox is only initiated when a vaue is supplied. text