Blog de Tecnologia desenvolvido por Thiago Campos Pereira

Blog criado para documentar e disseminar o conhecimento tecnológico adquirido por Thiago Campos Pereira e colaboradores.

terça-feira, janeiro 04, 2011

PowerBuilder – Enviando e-mail por SMTP - Parte 4 / 4


4)   Abaixo o código para enviar um e-mail

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

1 Comentários:

Às 17 dezembro, 2015 13:03 , Blogger JOSE MARCOS disse...

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 ***** */

 

Postar um comentário

Assinar Postar comentários [Atom]

<< Página inicial