send only plain text emails to a specified domain

I'm asking this question again to see if anyone else has any ideas. I need all users in our company to send only plain text emails to a specified domain.

Please read my previous question here:

http://www.experts-exchange.com/Networking/Protocols/Application_Protocols/Email/SMTP/Q_24534906.html?cid=239
pixelchefAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
David LeeConnect With a Mentor Commented:
Ok.  Here's the code.  Follow these instructions to use it.

Outlook 2003 and Earlier

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects and click on ThisOutlookSession
4.  Copy the code from the Code Snippet box and paste it into the right-hand pane of
5.  Outlook's VB Editor window
6.  Edit the code as needed.  I included comment lines wherever something needs to or can change
7.  Click the diskette icon on the toolbar to save the changes
8.  Close the VB Editor
9.  Click Tools > Macro > Security
10. Set the Security Level to Medium
11. Close Outlook
12. Start Outlook
13. Outlook will display a dialog-box warning that ThisOutlookSession contains macros and asking if you want to allow them to run.  Say yes.


Outlook 2007

1.  Start Outlook
2.  Click Tools->Macro->Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects and click on ThisOutlookSession
4.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
5.  Edit the code as needed.  I included comment lines wherever something needs to or can change
6.  Click the diskette icon on the toolbar to save the changes
7.  Close the VB Editor
8.  Click Tools > Trust Center
9.  Click Macro Security
10. Set Macro Security to "Warnings for all macros"
11. Click OK
12. Close Outlook
13. Start Outlook.  Outlook will display a dialog-box warning that ThisOutlookSession contains macros and asking if you want to allow them to run.  Say yes.


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olkRecipient As Outlook.Recipient
    If Item.Class = olMail Then
        For Each olkRecipient In Item.Recipients
            If InStr(1, LCase(olkRecipient.Address), "faxmaker.com") Then
                Item.BodyFormat = olFormatPlain
                Item.Save
                Exit For
            End If
        Next
    End If
End Sub

Open in new window

0
 
David LeeCommented:
Hi, pixelchef.

I can accomplish this with a simple bit of scripting.  Unfortunately there is no automated means of distributing Outlook macros.  The closest you can come to an automated distribution is to overwrite Outlook's code file on each computer.  That will work so long as none of the users in your company have any code in Outlook.  If they do, then they'll lose it when the code file is overwritten.  Let me know how you'd like to proceed.
0
 
pixelchefAuthor Commented:
Hi BlueDevilFan

We went a different direction to solve our situation. If you want to post the code or instructions in case it helps me or someone else in the future, I'll go ahead and award your points.
0
 
pixelchefAuthor Commented:
Thank you BlueDevilFan
0
 
David LeeCommented:
You're welcome.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.