[Resolvido]Exemplo do criquio cdos

gostaria de saber como que faco pra quando a pessoa que mandei o email abrir o email altomaticamento manda o outro email falando que a pessoa recebeu o email

Realmente

Mesmo nos aplicativos de Email, o usuário é quem escolhe nas configurações,se deve enviar o Email automático para emails aberto por ele.

mas eu so o codigo do criquio e nao o outloock

Sub EnviarEmail()

On Error GoTo erromail

Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "testecdo@gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "cdosys123"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = Me.txtNome

If Not IsNull(Me.txtPara) Then
.Sender = Me.txtPara
End If

If Not IsNull(Me.txtCC) Then
.CC = Me.txtCC
End If

If Not IsNull(Me.txtCCO) Then
.BCC = Me.txtCCO
End If

.ReplyTo = "criquio@hotmail.com"

.BodyPart.Charset = "utf-8"

.Subject = Me.txtassunto

If Me.grpTipos.Value = 1 Then
.TextBody = Me.txtMensagem & vbCrLf & vbCrLf & "Assinatura" & vbCrLf & "Criquio Calavera"
ElseIf Me.grpTipos.Value = 2 Then
.HTMLBody = Replace(Me.txtMensagem, vbCrLf, "
") & "



Atenciosamente.

Criquio Calavera"
ElseIf Me.grpTipos.Value = 3 Then
.CreateMHTMLBody = Me.txtMensagem

End If

.To = Me.txtPara

Dim L As Long
If Me.lstAnexos.ListCount > 0 Then
For L = 0 To Me.lstAnexos.ListCount - 1
.AddAttachment Me!lstAnexos.Column(0, L)
Next L

Else
End If
.Send
End With

Set Mens = Nothing
Set Config = Nothing
DoCmd.OpenForm "frmFinalizar"

erromail:
If Err.Number = 13 Then
Resume Next
ElseIf Err.Number = -2147220979 Then
DoCmd.Close acForm, "frmProgresso"
MsgBox "Você inseriu um endereço de email inválido ou inexistente." & vbCrLf & "Verifique o email e tente novamente.", vbOKOnly + vbCritical, "Email inválido"
DoCmd.Close acForm, "frmFinalizar"
Me.txtPara.SetFocus
Else
Resume Next
End If

End Sub

ok