![]() ![]() Sorry to keep dragging this question on, but - I'm having a bit of trouble bypassing the security warnings when users open Outlook. Display End With End Sub Private Sub olkMsg_Close(Cancel As Boolean) Set olkMsg = Nothing End Sub Private Sub olkMsg_Send(Cancel As Boolean) olkMsg.Subject = "" olkMsg.Save Set olkMsg = Nothing End Sub TooltipText = BUTTON_TOOLTIP End With End If On Error GoTo 0 ofcBar.Visible = True End Sub Private Sub Class_Terminate() Set ofcButton = Nothing ofcBar.Delete Set ofcBar = Nothing End Sub Private Sub ofcButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Set olkMsg = (olMailItem) With olkMsg. ![]() bmp file containing the picture you want to appear on the button' Const BUTTON_PICTURE = "c:\Users\David\Pictures\vlc.bmp" 'On teh next line change the address of the help mailbox' Const HELPBOX_ADDR = "HelpBox" Private ofcBar As Office.CommandBar Private WithEvents ofcButton As Office.CommandBarButton Private WithEvents olkMsg As Outlook.MailItem Private Sub Class_Initialize() Dim oPic As stdole.IPictureDisp Set oPic = LoadPicture(BUTTON_PICTURE) On Error Resume Next Set ofcBar = ("HelpBox") If TypeName(ofcBar) = "Nothing" Then 'Create the toolbar' Set ofcBar = ("HelpBox", msoBarTop, False, True) Set ofcButton = (msoControlButton) With ofcButton. Close the VB Editor 'On the next line change the button caption' Const BUTTON_CAPTION = "HelpBox" 'On the next line change the tooltip text' Const BUTTON_TOOLTIP = "Create a new help request" 'On the next line change the path and name of the. Click the diskette icon on the toolbar to save the changesĩ. I included comments wherever something needs to or can changeĨ. #REMOVE MAILIST SIGNATURE FROM MAILMAN CODE#Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor windowħ. In the Properties panel click on Name and enter HelpBoxĦ. Right-click on Class Modules, select Insert > Class Moduleĥ. If not already expanded, expand Microsoft Office Outlook ObjectsĤ. Click Tools > Macro > Visual Basic Editorģ. Follow these instructions to add the code to Outlook.Ģ. The code for this solution comes in two parts. ![]() We only have about 50 users total but it would be nice if I didn't have to manually delete the signature, disclaimer, etc from each ticket. This is so that users that have an IT issue can send an email to the mailbox, and then we have a program that takes any emails in the mailbox and turns them into an IT service ticket. I know I need a VBA script in Outlook if I want to do this, but I have no skills for VBA coding. On the rare occasion that a double hypen is used in the portion of the body of the message that I don't want removed, its not a big deal and can easily be fixed. The signatures will always begin with 2 hyphens, for example '-' without the quotes. So, it should remove the first signature (if there are more than one) and everything after it. I have a single Exchange mailbox that when it recceives any email, a rule/script should run that removes all images/text from the body of the email starting with the first signature in the body going from the top down. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |