Problems sending email

[desof]

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?

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

 

[Erel]

Are you handling the MessageSent event?

Basic4android - Net

 

[padvou]

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?

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

Dim  protocolo  Como  Cadena     : protocol = " SMTP "

should be

Dim  protocolo  Como  Cadena     : protocol = " SMTP1"