Promt Window

[Guest]

Sub
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myMailItem As Outlook.MailItem
Set myolApp = Outlook.Application
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myMailItem = myNamespace.OpenSharedItem(fileNameMSG)
myMailItem.SaveAs fileNameRTF, olRTF
myMailItem.Close olDiscard
End Sub

When I have .msg file with digital signature, while running makros, Outlook
asks user "You try to save encrypting message in unsafe format. Continue?"
Can I set automatically answer "YES" and how?
How can I check, is there promt window or not?

Thanks

 

[Guest]

Unless you change your SaveAs format, you will continue to get prompted and
there's nothing in the Outlook Object Model that you can set to suppress it.

 

[Guest]

I can use SendKeys and it helps. But SendKeys has additifity property. I will
have situations when I need it and don't need it. Can I know, is there promt
window or not?

Thanks

 

[Guest]

If you choose that format for e-mails with a digital signature, you can
always expect that prompt.

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/