B4J Question Error SEnd Email

Sub SendEmail (mail As String)
Dim SMTP1 As SMTP
Dim server As String      : server= "smtp.gmail.com"
Dim port As Int          : port= 465
Dim emailname As String  : emailname="XXXXX@gmail.com"
Dim password As String    : password="XXXX"
Dim protocol As String    : protocol="SMTP"
Dim destEmailAdress As String : destEmailAdress="XXXXXXX@gmail.com"
'Crear
SMTP1.Initialize(server, port, emailname, password, protocol)
SMTP1.UseSSL = True
' Enviar
SMTP1.To.Add (mail)
SMTP1.Subject = "Te invito a probar MultiGuía DIGITAL 2013"
tmp="Hola te invito a que pruebes este magnifico programa gratuito, para tener siempre a mano los números de teléfonos de San Cristobal y Zona, además te muestra las Farmacias de turnos y mucho más...!" & CRLF
tmp=tmp & "Podés descargarlo de acá >> " & CRLF  & "www.desoft.com.ar/guia.exe" & CRLF & CRLF
tmp=tmp & "Es seguro y simple, después contame" & CRLF & CRLF
tmp=tmp & "Un saludo!"

SMTP1.Body =tmp
SMTP1.Send

End Sub

Sub SMTP_MessageSent(Success As Boolean)

  If Success=False Then
      Msgbox.Show ("FAIL","")
  Else
      Msgbox.Show ("OK","")
  End If

End Sub