VBScript - 전자 메일을 수신했는지 확인하는 가장 좋은 방법

Question

이 기본 vbscript 코드를 사용하여 다른 사람에게 전자 메일을 보냈는데 훌륭하게 작동하지만 전자 메일을 받았음을 확인하려고합니다. 이렇게하는 방법이 있습니까? 내가 메일을 보내는 데 사용하는 코드는 다음과 같습니다

Dim objMessage 'object mail 

Set objMessage = CreateObject("CDO.Message") 
objMessage.BodyPart.Charset = "utf-8" 
objMessage.Subject = subjectStr 
objMessage.From = "To someone" 
objMessage.To = toWhoStr 
objMessage.TextBody = contentStr 
objMessage.AddAttachment AttachmentFile 

'==This section provides the configuration information for the remote SMTP server. 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ip smtp server" 

'Type of authentication, NONE, Basic (Base64 encoded), NTLM 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'cdoBasic 


'Server port (typically 25) 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 

'Use SSL for the connection (False or True) 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false 

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

objMessage.Configuration.Fields.Update 

'==End remote SMTP server configuration section== 

objMessage.Send 

Set ObjMessage = Nothing 

UPDATE 내 코드를 업데이트하고 지금은 일부 전자 메일로 알림을받을. 그에게 메일을 보내 사용자가 메일을 열고 그가 메일을 영수증 것을 통지 원한다면 물어 다음 메일 열린 팝업을 닫으려고이 코드

Const CDO_SUCCESS = 4 ' sends delivery receipt if succesfull 
Const CDO_FAIL = 2 ' sends delivery receipt if fails 
Const CDO_DELAY = 8 ' sends delivery receipt if delayed 
Const CDO_SUCCESS_FAIL_DELAY = 14 ' sends delivery receipt always 

Dim objMessage 'object mail 
Dim iConf 
Dim Flds 
    Set objMessage = CreateObject("CDO.Message") 

    set iconf = createobject("cdo.configuration") 
    Set Flds = iConf.Fields 
    With Flds 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ip smtp server" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1'cdoBasic 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    .Update 
    End With 
    '==End remote SMTP server configuration section== 

    With objMessage 
     .BodyPart.Charset = "utf-8" 
     Set .Configuration = iConf 
     .To = toWhoStr 
     .From = "from who" 
     .Subject = "BLA BLA BLA" 
     .TextBody = "PING PONG" 
     .fields("urn:schemas:mailheader:disposition-notification-to") = "email to notification" 
     .fields("urn:schemas:mailheader:return-receipt-to") = "email to notification" 
     .DSNOptions = 14 
     .fields.update 
     .Send 
    End With 
    Set ObjMessage = Nothing 

.

자동으로 알림을 보내는 방법을 찾지 못했습니다.

Answer 1

올바른 방향으로 가리켜 야 할 링크를 아래에서 확인하십시오.

Send CDO Mail with Read and Delivery Receipts

리.