String ls_ret
uo_email luo_email
luo_email = Create uo_email
/* ***** Configurações do Servidor ***** */
luo_email.is_Server_SMTP = 'smtp.xyz.com.br'
luo_email.is_Server_Port = '25'
luo_email.is_Server_UserId = 'teste'
luo_email.is_Server_UserPass = '*******'
luo_email.ib_Server_smtpAuth = True
luo_email.ib_Server_TLS_Encryption = False
/* ***** Fim Configurações do Servidor ***** */
/* ***** Dados para envio do E-Mail ***** */
luo_email.is_email_to_address[] = {'teste@gmail.com, teste@msn.com'}
luo_email.is_email_from_address = 'teste@yahoo.com'
luo_email.is_email_subject = 'Teste'
luo_email.is_email_body = 'Teste de email'
luo_email.is_email_attach[] = {'D:\foto.JPG'}
luo_email.ib_email_receipt = False
/* ***** Fim Dados para envio do E-Mail ***** */
ls_ret = luo_email.of_send_email()
If ls_ret <> ''Then
MessageBox('Teste', 'Falha no envio: ' + ls_ret)
Else
MessageBox('Teste', 'Email enviado com sucesso.')
End If
Destroy luo_email
2 comentários:
Utilizei o código disponivel em seu blog para enviar email, fiz todas os passos no entanto ao enviar o email emite uma mensagem Falha no envio: Este host não é conhecido. Segue abaixo minhas configuracoes, omiti o email e senha. Desde já agradeço pela ajuda.
/* ***** Configurações do Servidor ***** */
luo_email.is_Server_SMTP = 'smtp.googlemail.com'
luo_email.is_Server_Port = '465'
luo_email.is_Server_UserId = 'meu@email.com.br'
luo_email.is_Server_UserPass = 'minhasenha'
luo_email.ib_Server_smtpAuth = True
luo_email.ib_Server_TLS_Encryption = false
/* ***** Fim Configurações do Servidor ***** */
/* ***** Dados para envio do E-Mail ***** */
luo_email.is_email_to_address[] = {'meu@email.com.br, meuemail@2.com.br'}
luo_email.is_email_from_address = 'meu@email.com.br'
luo_email.is_email_subject = 'email teste'
luo_email.is_email_body = 'teste de email enviado via arquivo'
luo_email.is_email_attach[] = {'C:\sistemas\DADOS\teste.jpg'}
luo_email.ib_email_receipt = False
/* ***** Fim Dados para envio do E-Mail ***** */
Obrigado pela ajuda. Tudo funcionou corretamente. Algoritmo perfeito. Abs
Postar um comentário