Comment envoyer un courriel confidentiel en utilisant VBScript

-1

J'ai cherché en ligne sur la façon d'envoyer un courriel avec pièce jointe comme confidentiel. J'étais déjà capable de créer un script pour pouvoir envoyer un email avec une pièce jointe mais je n'arrive pas à savoir comment l'envoyer comme confidentiel.Comment envoyer un courriel confidentiel en utilisant VBScript

J'apprécierais que quelqu'un puisse m'aider à régler la sensibilité de l'email dans VBScript.

Voici mon code:

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

Source

2016-06-07 Patrick A

Je pense à à que vous devez définir [Mail-têtes] (https://msdn.microsoft.com/en-us/library/ms988660%28v=exchg.65%29.aspx?f = 255 & MSPPError = -2147217396) spécifiquement ['urn: schémas: mailheader: sensibilité''] (https://msdn.microsoft.com/fr-fr/library/ms875171 (v = exchg.65) .aspx) en utilisant l'un des ['cdoSensitivityValues' Enum] (https://msdn.microsoft.com/en-us/library/ms870469 (v = exchg.65) .aspx) valeurs. Montrez-nous un [mcve] de ce que vous avez jusqu'à présent en [éditant la question] (http://stackoverflow.com/posts/37668956/edit) et nous essaierons d'aider. Aussi pourrait être utile de lire [demander]. – Lankymart

Pourriez-vous essayer?

Il est inconnu si vous avez des en-têtes personnalisés. Donc, vérifiez les en-têtes dans Outlook pour voir si ceux-ci correspondent à ce que j'ai posté ci-dessous, mais je crois que cela devrait accomplir ce que vous demandez.

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

Source

2016-06-09 05:10:14

Comment envoyer un courriel confidentiel en utilisant VBScript

Répondre

Questions connexes