Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
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 = "" ReDim strResults(UBound(strSearchFor)) ' If TypeName(Application.ActiveWindow) = "Explorer" Then ' Set mai = Application.ActiveExplorer.Selection.item(1) ' ElseIf TypeName(Application.ActiveWindow) = "Inspector" Then ' Set mai = Application.ActiveInspector.CurrentItem ' Else ' Exit Sub ' End If With mai 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)) Next End If Next End With ' Set mai = Nothing ' If strResults(0) = "" Then Exit Sub ' Only proceed if we have an email address! Set nuMai = Application.CreateItem(olMailItem) With nuMai .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 & _ .Display End With End Sub
|Additional Mailboxes in Microsoft Outlook||2||51|
|How to sync a shared calendar to the iPhone 7 that is able to be edited||1||54|
|How send appointment to certain Outlook calendar?||22||32|
|Outlook 2016 - Error when attempting to send message.||2||32|