Envio de e-mail
Moderador: Moderadores
-
Softwhouse
- Usuário Nível 3
- Mensagens: 346
- Registrado em: 07 Dez 2011 18:44
- Localização: Porto Alegre/RS
Envio de e-mail
Alguém teria uma rotina para envio de e-mail com a Minigui ? Usando Harbour console consigo enviar mas com a Minigui usando BCC58 não funciona.
Fernando
-
Softwhouse
- Usuário Nível 3
- Mensagens: 346
- Registrado em: 07 Dez 2011 18:44
- Localização: Porto Alegre/RS
Re: Envio de e-mail
Obrigado Malcarli, mas não entendo nada de Classes. Tem mostrar como chamar a Classe para enviar o e-mail ? Obrigado.
Fernando
Re: Envio de e-mail
Código: Selecionar todos
// Envio de e-mail
If !Empty(XmlNode(hb_MemoRead(cArqXml), [email]))
oEmail := hbNFeEmail()
oEmail:cSubject:= hb_ansitooem([Nota Fiscal Eletrônica recebida de ]) + hb_ansitooem(parametrosiniciais->razao)
oEmail:cMsgHTML:= '<html><head><title>' + hb_ansitooem([Envio Automático de Nota Fiscal Eletrônica (NF-e)]) + '</title></head>' + cStilo + '<body>' + hb_OsNewLine() + ;
'<h1 Align=Center>' + hb_ansitooem([Envio Automático de Nota Fiscal Eletrônica (NF-e)]) + '</h1><br>' + ;
'<dt><div align="center"><font face="Courier New" size="3"><b>' + hb_ansitooem([*** Esse é um e-mail automático. Não é necessário respondê-lo ***]) + '</b></font><dt><br>' + ;
'<dt><div align="left"><font face="Courier New" size="3">Prezado(a) Sr(a),</font></div><br>' + hb_OsNewLine() + ;
'<dt><div align="left"><font face="Courier New" size="3">' + hb_ansitooem([Você está recebendo em anexo o arquivo XML e Pdf referente a uma Nota Fiscal Eletrônica.]) + '</font></div><br>' + ;
'<dt><div align="center"><font face="Courier New" size="3" color="red">' + hb_ansitooem([Este é um email automático e respostas devem ser enviadas diretamente ao emissor de NF-e.]) + '</font></div><br>' + ;
'<dt><div align="left"><font face="Courier New" size="3">' + hb_ansitooem([Como consultar o status da sua Nota Fiscal Eletrônica:]) + '</font></div><br>' + ;
'<dt><div align="left"><font face="Courier New" size="3">' + hb_ansitooem([Acesse o Portal da Nota Fiscal Eletrônica do Ministério da Fazenda em www.nfe.fazenda.gov.br e clique em Consultar NF-e Completa. Digite a chave de acesso: ] + SubStr(hb_MemoRead(cArqXml), At([Id=], hb_MemoRead(cArqXml)) + 7, 44) + [ para acessar todas as informações da NF-e.]) + '</font></div><br><br><br>' + ;
'<dt><div align="left"><font face="Courier New" size="4">NF-e emitida por:</font></div><br>' + ;
'<dt><div align="left"><font face="Courier New" size="2" color="blue">' + hb_ansitooem(PROPRIEDADE) + '</font></div><br></body></html>'
oEmail:cServerIP:= Alltrim(parametrosiniciais->Smtp)
oEmail:cFrom := hb_ansitooem(parametrosiniciais->razao) + [<] + Alltrim(parametrosiniciais->De) + [>]
oEmail:cUser := Alltrim(parametrosiniciais->De)
oEmail:cPass := Alltrim(parametrosiniciais->Senha)
oEmail:nPortSMTP:= Alltrim(parametrosiniciais->Porta)
oEmail:lConf := .T.
oEmail:lSSL := parametrosiniciais->ssl
oEmail:lAut := parametrosiniciais->MEUS
oEmail:aFiles := {cArqXml, StrTran(cArqXml, [xml], [pdf])}
oEmail:aTo := XmlNode(hb_MemoRead(cArqXml), [email])
aRetorno := oEmail:execute()
If aRetorno['OK'] == .F.
MsgInfo(aRetorno['MsgErro'], [Erro])
Endif
Endif
Else // Erro de não encontrar o xml
MsgExclamation([Arquivo Xml da Nfe/Nfce Não Encontrado em:] + hb_OsNewLine() + cArqXml, [Erro])
Return (Nil)
Endif