Untitled

From Cobalt Peccary, 2 Years ago, written in Plain Text, viewed 241 times.
URL http://paste.labtechexpert.com/view/da6feb2a Embed
Download Paste or View Raw
  1. Sub RemoveSig()
  2.     Dim MyMail As MailItem
  3.     If TypeOf ActiveWindow Is Explorer Then
  4.         Set MyMail = ActiveWindow.ActiveInlineResponse
  5.         MyMail.GetInspector.WordEditor.Bookmarks("_MailAutoSig").Select
  6.     ElseIf TypeOf ActiveWindow Is Inspector Then
  7.         Set MyMail = ActiveWindow.CurrentItem
  8.     Else
  9.         Exit Sub
  10.     End If
  11.     On Error GoTo ErrHandler
  12.         If Not MyMail.GetInspector.WordEditor.Bookmarks("_MailAutoSig") Is Nothing Then
  13.             MyMail.GetInspector.WordEditor.Bookmarks("_MailAutoSig").Select
  14.             MyMail.GetInspector.WordEditor.Windows(1).Selection.Delete
  15.             SendKeys "^+{HOME}", True
  16.             SendKeys "{UP}", True
  17.         End If
  18. ErrHandler:
  19.     Exit Sub
  20. End Sub
  21.  

Reply to "Untitled"

Here you can reply to the paste above

captcha