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 Helpdesk() Dim helpdeskaddress As String Dim objMail As Outlook.MailItem Dim strbody As String Dim oldmsg As String Dim emailUser As String Dim objItem As Outlook.MailItem ' Set this variable as your helpdesk e-mail address helpdeskaddress = "email@example.com" Set objItem = GetCurrentItem() Set objMail = objItem.Forward 'get the username portion of the sender email address by parsing LDAP string If (InStr(1, objItem.SenderEmailAddress, "CN=") > 0) Then emailUser = (Right(objItem.SenderEmailAddress, (Len(objItem.SenderEmailAddress) - 57))) & "@company.com" Else emailUser = objItem.SenderEmailAddress End If 'adds the senders e-mail address as the created by object for the ticket and appends the message body strbody = "#created by " & emailUser & vbNewLine & vbNewLine & objItem.Body objMail.To = helpdeskaddress objMail.Subject = objItem.Subject objMail.Body = strbody ' remove the comment from below to display the message before sending 'objMail.Display 'Automatically Send the ticket objMail.Send Set objItem = Nothing Set objMail = Nothing End Sub Function GetCurrentItem() As Object Dim objApp As Outlook.Application Set objApp = Application On Error Resume Next Select Case TypeName(objApp.ActiveWindow) Case "Explorer" Set GetCurrentItem = _ objApp.ActiveExplorer.Selection.Item(1) Case "Inspector" Set GetCurrentItem = _ objApp.ActiveInspector.CurrentItem Case Else End Select End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.