PC SOFT

WINDEVWEBDEV AND WINDEV MOBILE
ONLINE HELP

Home | Sign in | English UK
  • SMTP protocol
  • Session and user name
  • Authenticated SMTP
  • Timeout
  • Gmail: What to do if a connection to Gmail (SMTP, IMAP, POP3) fails with a certificate error?
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReports and QueriesUser code (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Browser code
WINDEV Mobile
AndroidAndroid Widget iPhone/iPadApple WatchUniversal Windows 10 AppWindows Mobile
Others
Stored procedures
Starts a session for sending emails with the SMTP protocol. You will only have the ability to send emails.
Notes:
  • In most cases, the SMTP server to use is the SMTP server of Internet provider (and not the one of email account). For example, if you have Internet access via Orange and a Free email account, you must use the SMTP server of Orange (and not the one of Free).
  • To start a session for receiving and reading emails, use EmailStartPOP3Session.
  • You also have the ability to use an emailSMTPSession variable.
Example
// Send an email via a non-secure SMTP server
EmailSetTimeOut(10) //10 seconds for the timeout
// Caution: you must use the SMTP server of the Internet provider
let sSMTPServers = "smtp.orange.fr"
IF EmailStartSMTPSession(sUserName, sPassword, sSMTPServer) = True THEN
// Procedure used to initialize the email structure
Initialize_Email()
// Send the email
IF EmailSendMessage(sUserName) = False THEN
Error()
END
EmailCloseSession(sUserName)
ELSE
Error("Unable to establish connection", ErrorInfo(), ...
"In case of timeout, check the parameters of " + ...
"""Firewall"" on the port used (25)")
END
Reports and QueriesWindows
UserName is string
 
UserName = "myaddress@gmail.com"
// Send an email via the secure SMTP protocol
EmailSetTimeOut(10) //10 seconds for the timeout
// Use a secure SMTP server with authentication
// Required to use a SMTP
// that differs from the one of the ISP
IF EmailStartSMTPSession(UserName, "Password", ...
"smtp.gmail.com", 587, False, emailOptionSecuredTLS) = True THEN
// Procedure used to initialize the email structure
Initialize_Email()
// Send the email
IF EmailSendMessage(UserName) = False THEN
Error()
END
EmailCloseSession(UserName)
ELSE
Error("Unable to establish connection", ErrorInfo(), ...
"In case of timeout, check the parameters of the "+ ...
"""Firewall"" on the port used (587)")
END
 
Syntax
<Result> = EmailStartSMTPSession(<User name> [, <Password>] , <Address of SMTP server> [, <Number of SMTP port> [, <Asynchronous mode> [, <Option>]]])
<Result>: Boolean
  • True if the session was started,
  • False otherwise. The ErrorOccurred variable is set to True if an error occurred.
    To find out the error details, use ErrorInfo associated with the errMessage constant.
<User name>: Character string (with quotes)
Identifies the email session in the functions for email management (used by EmailSendMessage to send emails for example).
<Password>: Optional character string (with quotes)
User password. This password is given by the service provider or by the network administrator. This password is used to start an authenticated SMTP session.
<Address of SMTP server>: Character string (with quotes)
DNS name or IP address of email server (outgoing protocol). This IP address is supplied by the service provider or by the network administrator.
Caution: You must use the SMTP server of the provider of Internet connection. This SMTP server may have no link with the SMTP server associated with the email account.
<Number of SMTP port>: Optional integer
Identifies the port used for the SMTP protocol (25 by default).
<Asynchronous mode>: Optional constant or boolean
emailAsynchronous (or True)The emails sent during the session started by EmailStartSMTPSession must be transmitted in asynchronous mode.
emailSynchronous (or False)
(default value)
The emails sent during the session started by EmailStartSMTPSession must be transmitted in synchronous mode.
<Option>: Optional Integer constant
Options of SMTP session. The possible values are:
emailOptionDefault
(default value)
Start the SMTP session.
Versions 15 and later
emailOptionSecuredTLS
New in version 15
emailOptionSecuredTLS
emailOptionSecuredTLS
Start the SMTP session secured by the TLS protocol.
Versions 20 and later
OptionSSL
New in version 20
OptionSSL
OptionSSL
Start the SMTP session secured by the SSL protocol. This type of session is used by the Orange, Free and Gmail servers for example.
Remarks

SMTP protocol

  • The different parameters passed to EmailStartSMTPSession are supplied by the Internet Service Provider or by the network administrator. An Internet connection is required to manage the emails. Several cases may occur:
    • The user is using a modem to connect to Internet: NetOpenRemoteAccess is used to establish the connection to Internet.
    • The user is using a direct connection to Internet (cable or ADSL): no specific operation is required.
  • The SMTP protocol can only be used to send emails. A WLanguage error occurs if you try to read emails without starting a POP3 session (EmailStartPOP3Session). To start a POP3 session and an SMTP session at the same time, use EmailStartSession.

Session and user name

Once an SMTP session was started, you have the ability to start a POP3 session (EmailStartPOP3Session) by using the same user name.

Authenticated SMTP

<Password> is used to start an authenticated SMTP session. The supported authentication mechanisms are SMTP Login and Plain.
If the server recognizes one of these two authentication mechanisms and if the authentication fails, the connection fails as well.
If the server does not recognize one of these two authentication mechanisms and if the authentication fails, EmailStartSMTPSession tries to connect without authentication.
Note: the SMTP authentication cannot be performed by EmailStartSession. To start a POP3 session and an authenticated SMTP session at the same time, you must use both EmailStartPOP3Session and EmailStartSMTPSession.

Timeout

The timeout can be configured by EmailSetTimeOut.

Gmail: What to do if a connection to Gmail (SMTP, IMAP, POP3) fails with a certificate error?

Since August 2017, a new certificate was deployed by Google: Google Internet Authority G3. Unfortunately, the Windows API for checking certificates does not validate this certificate.
Therefore, starting a POP3, IMAP or SMTP session may fail with the error "The certificate string was not issued by a trusted authority".
To validate the certificate, all you have to do is modify the management mode of emails. The WLanguage EmailConfigure function allows you to change this mode and to no longer use the Windows API that locks this certificate. The following code must be added before starting the session via EmailStartSMTPSession:
// Enable the multi-platform implementation
EmailConfigure(emailParameterMode, 1)
 
Note: From version 23 Update 1, the call to EmailConfigure is not required anymore: WLanguage is automatically using the management mode of emails adapted to the session.
Related Examples:
Pocket Managing Contacts Mobile (WINDEV Mobile): Pocket Managing Contacts
[ + ] This example presents the management of contacts in Pocket PC.
The following topics will be presented in this example:
1/ the loopers
2/ the use of queries
3/ sending SMSs
4/ sending emails
5/ the phone call.
Component : wd250com.dll
Minimum version required
  • Version 9
This page is also available for…
Comments
Video Email WebDev
https://youtu.be/O2ksmeGIkYU

https://windevdesenvolvimento.blogspot.com/2019/02/dicas-2027-webdev-aula-030-enviar-email.html

s_Usuario is string="amarildo.email@gmail.com"
s_senha is string="nossasenha"
s_smtp is string="smtp.gmail.com"
s_porta is string="587"
s_email is string="amarildo.email@gmail.com"
s_Email_destinatario is string="amarildo@matosinformatica.com.br"
s_assunto is string="Teste 0834"
s_mensagem is string="Mensagem do Email"
s_email_copia is string="amarildo.matos@gmail.com"
EmailSetTimeOut(30)
bN_email_sessao is boolean=EmailStartSMTPSession( ...
s_Usuario,s_senha,s_smtp,s_porta,False,emailOptionSecuredTLS)
IF bN_email_sessao=True THEN
minha_mensagem is an Email
minha_mensagem..Sender=s_email
Add(minha_mensagem..Recipient,s_Email_destinatario)
minha_mensagem..Subject=s_assunto
minha_mensagem..Message=s_mensagem
minha_mensagem..SenderAddress=s_email_copia
minha_mensagem..ReturnReceipt=True
IF EmailSendMessage(s_Usuario
amarildo
26 Feb. 2019
Video Envio Email
https://youtu.be/4MgvoehKwbo
amarildo
26 Dec. 2018
ERRO CERTIFICACAO ARRUMADO
EmailConfigure(emailParameterMode,1)
// ESSA CONFIGURACAO ACIMA ARRUMA ERRO CERTIFICACAO
EmailSetTimeOut(30)
HourGlass()
n_email_sessao is boolean=EmailStartSMTPSession(EDT_USUARIO,EDT_SENHA,EDT_SERVIDOR_SMTP,EDT_porta,False,emailOptionSecuredTLS)
IF n_email_sessao=True THEN
_minha_mensagem is an Email // est un Email
_minha_mensagem..Sender=EDT_EmailSender
Add(_minha_mensagem..Recipient, EDT_destinatario)
_minha_mensagem..Subject = EDT_ASSUNTO
_minha_mensagem..Message = EDT_MENSAGEM
_minha_mensagem..SenderAddress = EDT_EmailSender
_minha_mensagem..ReturnReceipt = True
EmailLoadAttachment(_minha_mensagem,EDT_anexo)
IF EmailSendMessage(EDT_USUARIO, _minha_mensagem) = False THEN
Info("Erro Mandar Mesnagem:"+CR+ErrorInfo())
END
EmailCloseSession(EDT_USUARIO)
END
HourGlass(False)
// blog com video e exemplo
// http://windevdesenvolvimento.blogspot.com.br/2017/10/aula-1277-email-3-erro-certificacao.html
// https://www.youtube.com/watch?v=LxqfFegkGqo

De matos
29 Oct. 2017