Problems sending email

desof

Well-Known Member
Licensed User
Longtime User
Hi I'm proving this in the emulator and on my Motorola ATRIX and never receive the email. It gives no error and reaches the line MsgBox ("Send", "").

What can it be?

B4X:
Sub  sendmail  
' Process_Globals: 
Dim  SMTP1  Como  SMTP 
Dim  servidor  Como  Cadena      : server =  " smtp.gmail.com " 
Dim  puerto  Como  Int             : port =  465 
Dim  nombrecorreoelectrónico  Como  Cadena     : nombrecorreoelectrónico = " [email protected] " 
Dim  contraseña  Como  Cadena     : password = " xxxxxxxx " 
Dim  protocolo  Como  Cadena     : protocol = " SMTP " 
" crear 
SMTP1.Initialize (servidor, el puerto, nombrecorreoelectrónico, contraseña, protocolo) 
SMTP1.UseSSL =  Verdadero 
'  sub enviar: 
SMTP1.To.Add ( " xxxxxxxx @ gmail . com " )  
SMTP1.Subject =  " someSubject " 
SMTP1.Body =  " SomeText " 
' '' SMTP1.AddAttachment (File.DirDefaultExternal, "examle.txt") 
SMTP1.Send 

MsgBox  ( " SEND " , "" ) 

End Sub
 

padvou

Active Member
Licensed User
Longtime User
Hi I'm proving this in the emulator and on my Motorola ATRIX and never receive the email. It gives no error and reaches the line MsgBox ("Send", "").

What can it be?

B4X:
Sub  sendmail  
' Process_Globals: 
Dim  SMTP1  Como  SMTP 
Dim  servidor  Como  Cadena      : server =  " smtp.gmail.com " 
Dim  puerto  Como  Int             : port =  465 
Dim  nombrecorreoelectrónico  Como  Cadena     : nombrecorreoelectrónico = " [email protected] " 
Dim  contraseña  Como  Cadena     : password = " xxxxxxxx " 
Dim  protocolo  Como  Cadena     : protocol = " SMTP " 
" crear 
SMTP1.Initialize (servidor, el puerto, nombrecorreoelectrónico, contraseña, protocolo) 
SMTP1.UseSSL =  Verdadero 
'  sub enviar: 
SMTP1.To.Add ( " xxxxxxxx @ gmail . com " )  
SMTP1.Subject =  " someSubject " 
SMTP1.Body =  " SomeText " 
' '' SMTP1.AddAttachment (File.DirDefaultExternal, "examle.txt") 
SMTP1.Send 

MsgBox  ( " SEND " , "" ) 

End Sub

B4X:
Dim  protocolo  Como  Cadena     : protocol = " SMTP "
should be
B4X:
Dim  protocolo  Como  Cadena     : protocol = " SMTP1"
 
Upvote 0
Top