G
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
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