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 : sensitivity'] (https://msdn.microsoft.com/en-us/library/ms875171(v=exchg.65) .aspx) ['cdoSensitivityValues' Enum] (https://msdn.microsoft.com/en-us/library/ms870469(v=exchg.65) .aspx) 값. 지금까지 [질문 편집] (http://stackoverflow.com/posts/37668956/edit)을 통해 지금까지 가지고있는 것의 [mcve]를 보여 주면 우리는 시도하고 도울 것입니다. 또한 [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를 사용하여 기밀 전자 메일을 보내는 방법

답변

관련 문제