link = "https://www.pagodigital.com/verfactura.php?id=01904259099221"
SendEmail (link)
Sub SendEmail (link 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="xxxxxx@gmail.com"
Dim password As String : password="xxxxxx"
Dim protocol As String : protocol="SMTP"
Dim destEmailAdress As String : destEmailAdress="xxxxxx@gmail.com"
'Crear
SMTP1.Initialize(server, port, emailname, password, protocol)
SMTP1.UseSSL = True
' Enviar
destEmailAdress=mail.Text
SMTP1.To.Add (destEmailAdress)
SMTP1.Subject = "Cupón de pago para la donación de MultiGuía DIGITAL 2013"
SMTP1.Body = link
SMTP1.Send
End Sub