I have a macro for creating a new email and I would like to make a change to it so that it includes an image in it. I have attached a sample artwork of the way I would like it to look. Any advice on how to add this would be greatly appreciated.
Sub editten(mai As Variant)
Dim para As Variant
Dim strArray() As String
Dim nuMai As Object
Dim strSearchFor() As Variant: strSearchFor = Array("Email:", "Shipping Company:", "Tracking Number:", "Estimated Arrival Date:", "Contact:", "Company Name:")
Dim strResults() As String
Dim elem As Integer
Const str2 As String = ""
Const str3 As String = ""
Const str4 As String = ""
' If TypeName(Application.ActiveWindow) = "Explorer" Then
' Set mai = Application.ActiveExplorer.Selection.item(1)
' ElseIf TypeName(Application.ActiveWindow) = "Inspector" Then
' Set mai = Application.ActiveInspector.CurrentItem
' Exit Sub
' End If
strArray = Split(.Body, vbCrLf)
For Each para In strArray
If para <> "" Then
For elem = LBound(strSearchFor) To UBound(strSearchFor)
If LCase(Left(para, Len(strSearchFor(elem)))) = LCase(strSearchFor(elem)) Then strResults(elem) = Trim(Split(para, ":")(1))
' Set mai = Nothing
' If strResults(0) = "" Then Exit Sub
' Only proceed if we have an email address!
Set nuMai = Application.CreateItem(olMailItem)
.To = strResults(0)
.Subject = "TLN Trade Company Inc - " & strResults(5) & " Your Order has now been shipped by UPS delivery"
.Body = "Dear " & Split(strResults(4) & " ", " ")(0) & "," & vbCrLf & vbCrLf & _
"Your order has now been shipped with UPS and is due on to arrive on " & strResults(3) & ". " & _
"The tracking number for this order is " & strResults(2) & "." & vbCrLf & vbCrLf & _
"To check the status of this delivery: " & vbCrLf & vbCrLf & _
"1. Go to http://www.ups.com/tracking/tracking.html" & vbCrLf & _
"2. Enter the tracking number above in the Tracking or InfoNotice Numbers Box" & vbCrLf & _
"3. Press the Track Button" & vbCrLf & vbCrLf & _
"We would appreciate it if you could let us know when these goods have been delivered to you." & vbCrLf & vbCrLf & _
"Best regards," & vbCrLf & _
"Derek" & vbCrLf & vbCrLf & _