Как отправить конфиденциальную электронную почту с помощью VBScript

-1

Я искал в Интернете вопрос о том, как отправить электронное письмо с вложением в качестве конфиденциального. Я уже смог создать сценарий, чтобы отправлять электронное письмо с вложением, но я не могу понять, как отправить его как конфиденциальный.Как отправить конфиденциальную электронную почту с помощью VBScript

Буду признателен, если кто-нибудь может помочь мне установить чувствительность электронной почты в VBScript.

Вот мой код:

Call Email 

sub Email 

    Set objEmail = CreateObject("CDO.Message") 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    objEmail.From = "myemail" 
    objEmail.To = "SendToEmail" 
    ObjEmail.Subject = "Email Title" 
    ObjEmail.Textbody = "Email Body" 
    objEmail.AddAttachment "C:\Temp\ERSD\dchmar_" & sDate & ".txt" 
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="xx.xx.xx.xx" 
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/exchange/sensitivity") = 3 
    objEmail.Configuration.Fields.Update 
    objEmail.Send 

End sub

источник

2016-06-07 Patrick A

Я думаю к тому, что вам нужно будет установить [Заголовки почты] (https://msdn.microsoft.com/en-us/library/ms988660%28v=exchg.65%29.aspx?f = 255 и MSPPError = -2147217396), в частности ['urn: schemas: mailheader: sensitive'] (https://msdn.microsoft.com/en-us/library/ms875171 (v = exchangeg.65) .aspx), используя один из ['cdoSensitivityValues' Enum] (https://msdn.microsoft.com/en-us/library/ms870469 (v = exchangeg.65) .aspx). Покажите нам [mcve] того, что вы до сих пор [редактируете вопрос] (http://stackoverflow.com/posts/37668956/edit), и мы постараемся помочь. Также, возможно, стоит прочитать [ask]. – Lankymart

Не могли бы вы попробовать это?

Это неизвестно, если у вас есть пользовательские заголовки. Поэтому проверьте заголовки в Outlook, чтобы узнать, соответствуют ли они тем, что я разместил ниже, но я считаю, что это должно выполнить то, что вы просите.

Set objEmail = CreateObject("CDO.Message") 
Set objEmailConf = CreateObject("CDO.Configuration") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objEmail.From = "myemail" 
objEmail.To = "SendToEmail" 
ObjEmail.Subject = "Email Title" 
ObjEmail.Textbody = "Email Body" 
objEmail.AddAttachment "C:\Temp\ERSD\dchmar_" & sDate & ".txt" 
objEmailConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmailConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="xx.xx.xx.xx" 
objEmailConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'objEmailConf.Fields.Item("http://schemas.microsoft.com/exchange/sensitivity") = 3 
objEmailConf.Fields.Update 
objEmail.Configuration.Fields.Item("urn:schemas:mailheader:Sensitivity") = "Company-Confidential" 
objEmail.Configuration.Fields.Update 
objEmail.Send

источник

2016-06-09 05:10:14

Как отправить конфиденциальную электронную почту с помощью VBScript

ответ

Смежные вопросы