Strongm.... only for you - check if the customer have riceved the email 1

[sal21]

I just have this two code:

Private Sub INVIO_EMAIL_LIBERO()

Dim CDOConfig As Object
Dim CDOEmail As Object
Dim SMTPServer As String
Dim EmailSubject As String
Dim EmailFrom As String
Dim EmailTo As String
Dim EmailCc As String
Dim EmailBcc As String
Dim EmailBody As String

' SMTP
SMTPServer = "smtp.libero.it"
' MAIL
EmailFrom = "gggy@libero.it"
EmailTo = EMAIL
EmailSubject = "SITUAZIONE PAGAMENTO ABBONAMENTO"
EmailBody = "GENTILE ATLETA: " & NOMINATIVO
' CDO
Set CDOConfig = CreateObject("CDO.Configuration")
Set CDOEmail = CreateObject("CDO.Message")
' SMTP
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
' Usr Psw
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ggggg@libero.it"
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx" ' SSL
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
' Update
CDOConfig.Fields.Update

' Message
With CDOEmail
Set .Configuration = CDOConfig
.Subject = EmailSubject
.From = EmailFrom
.To = EmailTo
.TextBody = EmailBody
'.CC = EmailCc
'.BCC = EmailBcc
'.AddAttachment "C:\Documents and Settings\j.doe\Desktop\MarginImp.xls"
' send mail
.send
End With

' Clear
Set CDOEmail = Nothing
Set CDOConfig = Nothing

End Sub
Private Sub INVIO_EMAIL_GMAIL()

Dim CDOConfig As Object
Dim CDOEmail As Object
Dim SMTPServer As String

Dim EmailSubject As String
Dim EmailFrom As String
Dim EmailTo As String
Dim EmailCc As String
Dim EmailBcc As String
Dim EmailBody As String

' SMTP
SMTPServer = "smtp.gmail.com"
' MAIL
EmailFrom = "lklklj@gmail.com"
EmailTo = "kljkjljy@iol.it"
EmailSubject = "TEST"
EmailBody = "TEST"
' CDO
Set CDOConfig = CreateObject("CDO.Configuration")
Set CDOEmail = CreateObject("CDO.Message")
' SMTP
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
' Usr Psw
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@gmail.com"
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jkljkkjkjhkk" ' SSL
CDOConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
' Update
CDOConfig.Fields.Update

' Message
With CDOEmail
Set .Configuration = CDOConfig
.Subject = EmailSubject
.From = EmailFrom
.To = EmailTo
.TextBody = EmailBody
'.CC = EmailCc
'.BCC = EmailBcc
'.AddAttachment "C:\Documents and Settings\j.doe\Desktop\MarginImp.xls"
' send mail
.send

End With

' Clear
Set CDOEmail = Nothing
Set CDOConfig = Nothing

End Sub

Is possible to know if the user received the email and read it.

peraphs with api rest full?.....

 

[strongm]

>Is possible to know if the user received the email and read it.

Nope. SMTP does not provide such functionality The S stands for 'simple' ...

 

[sal21]

ok tks.