¿Cómo iniciar sesión usando el correo electrónico en PB?
mailsession mses
mailmessage mmsg
mailreturncode mreturn
// Generar objeto de sesión de correo mses
mses = crear sesión de correo
//.//mailLogon
// mreturn = mses.maillogon(mailnewsession!)
mreturn = mses.mailLogon('a', '',mailNewSessionWithDownLoad!)
// mreturn = mses.mailLogon('yx','',mailNewSessionWithDownLoad!)
// mreturn = mses.mailLogon('yx', '',mailNewSessionWithDownLoad!)messagebox("Error", "Error al iniciar sesión en el correo, ¡háganoslo saber de otra manera! ~n "+"XXXX@163.com")
return
end if
//// Abre la ventana de dirección de correo electrónico para obtener la dirección del destinatario.
La dirección y el nombre son matrices de estructuras colocadas en mmsg
//mreturn =mses.mailaddress(mmsg)
//if mreturn <> mailreturnsuccess then
///messagebox("error ", "Hubo un error con la dirección de correo electrónico, ¡háganoslo saber de otra manera!~n "+"XXXX@163.com")
/ /return
//
//end if
/// Ingrese el contenido del editor multilínea mle_1 en la ventana w_mai1 en el campo de texto de nota de mmsg
//Establecer algunos valores de atributos del objeto de información de correo
mmsg.Recipient[1].Name = "cdsj_qwwxmb@sina.com"// Nombre del destinatario del correo
//Especifique el tipo de destinatario como mailTo!
mmsg.Recipient[1].Dirección = 'SMTP:'+" cdsj_qwwxmb@sina.com"//yxbyxb_wj@163.com"
mmsg.Recipient[1]. RecipientType=mailTo!notetext = "Esta es una prueba de correo" //w_mai1.mle_1.text
////mmsg.NoteText = mle_2.text // Texto de correo electrónico
/ Enviar correo
mreturn = mses.mailsend(mmsg)
if mreturn <> mailreturnsuccess entonces
messagebox("Error", "El mensaje no fue enviado , ¡háznoslo saber de otra manera! ~n "+"XXXX@163.com")
Return
else
messagebox("Error", "¡El correo electrónico se ha enviado correctamente, lo solucionaremos lo antes posible!")
end if
//exit login
mses. maillogoff()
//cancelar sesión de correo electrónico
destruir mses