Database Search

TechHome

Redemption

• Add Attachment to Journal Item
• Adding Contact Information into Outlook
• Compiled EXE Keeps Running Under Task Manager
• Copy Contacts Folder to Subfolder in Outlook
• Create a Folder under Personal Folders in Outlook
• Create Outlook Distribution List
• Creating Address Book XML File
• Current Contact Folder Items
• Delete Mail from Outlook using OLE
• Delete Outlook Contact
• Email Forwarder
• Embed an Image into an Outlook Email
• Empty Folder in Outlook
• Encrypt Message in Outlook
• Find Contacts in Outlook
• Find Folder with the String Mailbox
• Get Internet headers Field from Outlook Message
• Get Contact data form Contact Item Currently Selected in Outlook
• Get Contact Information In Outlook
• Get Internet headers Field from Outlook Message
• Get list of appointments
• Get member of Outlook Distribution List
• Get Outlook Contact information
• How to Send Mail from Outlook using OLE
• Identify Outlook Folder Type or Contents
• Import Excel Data into Outlook Contact Folder
• Launch Outlook and Make Visible
• List Subfolders
• Mark Messages as Read in Outlook using OLE
• ObjectEventAdd To Capture ItemSend Event
• OLE and OUTLOOK check mail
• OLE and OUTLOOK read mail other than inbox
• OLE and OUTLOOK read mail
• OLE MAPI Choose Folder
• OLE_Outlook- add Entry to Address book
• Outlook - Get Oldest Email Message
• Outlook constants
• Outlook Contacts to XML
• Outlook PST to MSG Export
• Outlook Quit Event
• Outlook Received Date
• Outlook Reply-To in OLE
• Outlook Sendmail OLE Example
• Outlook Version
• Read Open Active Outlook Message
• Recurse Outlook folders
• Redemption Causes WinBatch Studio to Crash
• Rename Personal Folder in Oulook
• Save file attachments in Outlook
• Save outlook attachments
• Send to Multiple Recipients
• Sort Email by Received Time
• TypeOf Equivalent
• Use Existing Instance Or Create a New One If Necessary
• Using OLE to resolve name in Outlook
• WinBatch and Redemption Issue
• Writing Appointments to Outlook

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Encrypt Message in Outlook

 Keywords: Encrypt email Message Outlook 

Sample code:

IntControl(73, 2, 0, 0, 0)
myOlApp = ObjectOpen("Outlook.Application")
olMailItem = 0
myItem = myOlApp.CreateItem(olMailItem)
myInspector = myItem.GetInspector
myInspector.Display
oCBs = myInspector.CommandBars

DigitalSigCtrl = 719
EncryptMsgCtrl = 718
oDigSignCtl = oCBs.FindControl(,EncryptMsgCtrl)

If oDigSignCtl==0
	;Add the toolbar button to the item.
	myStandardItem = oCBs.Item("Standard")
	myCtrls = myStandardItem.Controls
   oDigSignCtl = myCtrls.Add(, EncryptMsgCtrl,,,@True)
EndIf


; Check to make sure the button is not dimmed.
If oDigSignCtl.Enabled != @False
	;Check to make sure the button is not depressed.
   If oDigSignCtl.State == 0 Then oDigSignCtl.Execute
Else
	Message("You do not have a support for encrypted messages!","This mail will not be sent.")
	;Cancel the send to only allow sending of signed mail.
   exit
End If

ObjectClose(oCBs)
ObjectClose(oDigSignCtl)
ObjectClose(myOlApp)
exit

:WBERRORHANDLER
IntControl(73, 2, 0, 0, 0)
%wberrorhandlerassignment% = 0
Return

Article ID:   W15244

File Created: 2002:09:05:13:50:48

Last Updated: 2002:09:05:13:50:48