They use this macro to reply to my emails that are shared on the task folder. I share my task folder with other co-workers. Figured it out and it has been working with no glitches. IntLocLabel = InStr(strSource, strLabel) 'strLabel adds email in body to To: Field ![]() ObjReply.Body = " NO CONFLICT WITH SEWER MAINTENANCE FORCE MAIN." & vbNewLine & vbNewLine & vbNewLine & objItem.Body ![]() ObjReply.subject = Replace(objReply.subject, "Re:", "",, , vbTextCompare) 'Set objReply puts RE: xxxxx into subject field objItem.Reply 'strAddress = email in original body of Dig Alert StrAddress = ParseTextLinePair(objItem.Body, "Email: ") 'this gets the subject from original email ![]() Now how change I change the font color on the objReply.Body = "NO CONFLICT WITH SEWER MAINTENANCE FORCE MAIN" to a red font. ' anything else will result in an error, which is Select Case TypeName(objApp.ActiveWindow) Set objApp = CreateObject("Outlook.Application") ![]() IntLocLabel = Mid(strSource, intLocLabel + intLenLabel) IntLocCRLF = InStr(intLocLabel, strSource, vbCrLf) ' create the reply, add the address and displayįunction ParseTextLinePair(strSource As String, strLabel As String) StrAddress = ParseTextLinePair(objItem.Body, "Requestor Email:")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |