' Set objSel = objDoc.Windows(1).Selection ' Added by Alan McGowan 20-11-15 ' Set objDoc = objInsp.WordEditor ' Added by Alan McGowan 20-11-15 ' Set objInsp = objTask.GetInspector ' Added by Alan McGowan 20-11-15 ![]() ' Dim objSel As Word.Selection ' Added by Alan McGowan 17-11-15 ' Dim objDoc As Word.document ' Added by Alan McGowan 17-11-15 ' Dim objInsp As Inspector ' Added by Alan McGowan 17-11-15 ![]() ![]() Sub MsgSaver(strPath As String, msgItem As Outlook.MailItem, lngCounter As Long, blnMulti As Boolean)ĭim arrMsgTo() As String ' Added by Alan McGowan 6-11-15ĭim msgItemTo As String ' Added by Alan McGowan 6-11-15ĭim arrcount As Long ' Added by Alan McGowan 6-11-15ĭim msglink As String ' Added by Alan McGowan 17-11-15ĭim msg As Outlook.MailItem ' Added by Alan McGowan 17-11-15ĭim objTask As Outlook.TaskItem ' Added by Alan McGowan 20-11-15ĭim Signature As String ' Added by Alan McGowan 17-11-15
0 Comments
Leave a Reply. |