Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

TLS nao funciona no envio para office386

nelson costa

Por nelson costa
em ACBrLibMail

 Compartilhar
  • Este tópico foi criado há 655 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

nelson costa Rookie

nelson costa

Postado
Postado

Nao estou conseguindo enviar e-mail com TLS , o estranho é que pelo TESTE, eu consigo se problemas, mas fazendo pela DLL nao funciona.

a dll do OPENSSL está com a ultima versao.

o estranho é que o arquivo INI quando feito pela DLL , é incluido diversos campos, e pede para cadastrar o SMTP em outro campo

nao entendi porque num funciona e o outro nao.

segue meu programa de teste em foxpro

 

CLEAR

#Define STR_LEN 256
#Define STR_TO_UTF8 9
#Define UTF8_TO_STR 11

DECLARE integer MAIL_Inicializar IN ACBrMail32.dll String eArqConfig, string eChaveCrypt
DECLARE integer MAIL_ConfigLer   IN ACBrMail32.dll String eArqConfig
DECLARE integer MAIL_AddAddress  IN ACBrMail32.dll String eEmail,string eNome
DECLARE integer MAIL_SetSubject  IN ACBrMail32.dll String eSubject
DECLARE integer MAIL_AddReplyTo  IN ACBrMail32.dll String eEmail,string eNome
DECLARE integer MAIL_AddBody     IN ACBrMail32.dll String eAltBody
DECLARE integer MAIL_Send        IN ACBrMail32.dll integer UseThreadNow
DECLARE integer MAIL_UltimoRetorno IN ACBrMail32.dll string @sMensagem,long @esTamanho
DECLARE integer MAIL_ConfigGravar  IN ACBrMail32.dll string @sMensagem

 

? px("","")

? mail_configLer("d:\MailTeste.ini")
? MAIL_AddAddress("[email protected]","")
? MAIL_SetSubject("teste do sistema")
? MAIL_AddReplyTo("[email protected]","")
? MAIL_AddBody("simples teste")
*? mail_configgravar("d:\SAIDA.INI")


? "send",MAIL_Send(0)

ret=SPACE(200)
? "ultimo retorno",MAIL_UltimoRetorno(@ret,1024)
? "ret",ret

 

FUNCTION px(arqConfig, chaveCrypt)
    local hResult, buffer, bufferLen, oErr
        arqConfig = Iif(Vartype(arqConfig)#"C", "", arqConfig)
        chaveCrypt = Iif(Vartype(chaveCrypt)#"C", "", chaveCrypt)
        hResult = MAIL_Inicializar(StrConv(arqConfig, STR_TO_UTF8), StrConv(chaveCrypt, STR_TO_UTF8))
        
        ? hresult
ENDFUNC

 

p2.PNG

P1.png

Link para o comentário
Compartilhar em outros sites
nelson costa Rookie

nelson costa

Postado
  • Autor
Postado

[Email]
[email protected]
FromName=Fulano de Tal
Host=smtp.office365.com
Port=587
[email protected]
Pass=<oculta>
TLS=1
SSL=0
DefaultCharset=27
IdeCharset=15
Nome=teste
Servidor=smtp.office365.com
[email protected]
[email protected]
Senha=<oculta>
Codificacao=27
Porta=587
Timeout=0
Confirmacao=0
ConfirmacaoEntrega=0
SegundoPlano=0
Tentativas=1
IsHTML=0
Priority=1

[Principal]
TipoResposta=0
CodificacaoResposta=0
LogNivel=1
LogPath=d:\

[Versao]
ACBrLib=0.0.2
ACBrLibMail=0.1.8.276
ACBrLibMail Demo=0.1.8.278

[Sistema]
Nome=
Versao=
Data=30/12/1899
Descricao=

[PosPrinter]
ArqLog=
Modelo=0
Porta=
PaginaDeCodigo=2
ColunasFonteNormal=48
EspacoEntreLinhas=0
LinhasEntreCupons=21
CortaPapel=1
TraduzirTags=1
IgnorarTags=0
LinhasBuffer=0
ControlePorta=0
VerificarImpressora=0
TipoCorte=0

[PosPrinter_Barras]
MostrarCodigo=0
LarguraLinha=0
Altura=0
Margem=0

[PosPrinter_QRCode]
Tipo=2
LarguraModulo=4
ErrorLevel=0

[PosPrinter_Logo]
IgnorarLogo=0
KeyCode1=32
KeyCode2=32
FatorX=1
FatorY=1

[PosPrinter_Gaveta]
SinalInvertido=0
TempoON=50
TempoOFF=200

[PosPrinter_MPagina]
Largura=0
Altura=0
Esquerda=0
Topo=0
Direcao=0
EspacoEntreLinhas=0

[PosPrinter_Device]
Baud=9600
Data=8
Timeout=3
Parity=0
Stop=0
MaxBandwidth=0
SendBytesCount=0
SendBytesInterval=0
HandShake=0
SoftFlow=0
HardFlow=0

[Proxy]
Servidor=
Porta=0
Usuario=
Senha=

[SoftwareHouse]
CNPJ=
RazaoSocial=
NomeFantasia=
WebSite=
Email=
Telefone=
Responsavel=

[Emissor]
CNPJ=
RazaoSocial=
NomeFantasia=
WebSite=
Email=
Telefone=
Responsavel=

 

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
10 horas atrás, nelson costa disse:

Nao estou conseguindo enviar e-mail com TLS , o estranho é que pelo TESTE, eu consigo se problemas, mas fazendo pela DLL nao funciona.

a dll do OPENSSL está com a ultima versao.

o estranho é que o arquivo INI quando feito pela DLL , é incluido diversos campos, e pede para cadastrar o SMTP em outro campo

nao entendi porque num funciona e o outro nao.

segue meu programa de teste em foxpro

 

CLEAR

#Define STR_LEN 256
#Define STR_TO_UTF8 9
#Define UTF8_TO_STR 11

DECLARE integer MAIL_Inicializar IN ACBrMail32.dll String eArqConfig, string eChaveCrypt
DECLARE integer MAIL_ConfigLer   IN ACBrMail32.dll String eArqConfig
DECLARE integer MAIL_AddAddress  IN ACBrMail32.dll String eEmail,string eNome
DECLARE integer MAIL_SetSubject  IN ACBrMail32.dll String eSubject
DECLARE integer MAIL_AddReplyTo  IN ACBrMail32.dll String eEmail,string eNome
DECLARE integer MAIL_AddBody     IN ACBrMail32.dll String eAltBody
DECLARE integer MAIL_Send        IN ACBrMail32.dll integer UseThreadNow
DECLARE integer MAIL_UltimoRetorno IN ACBrMail32.dll string @sMensagem,long @esTamanho
DECLARE integer MAIL_ConfigGravar  IN ACBrMail32.dll string @sMensagem

 

? px("","")

? mail_configLer("d:\MailTeste.ini")
? MAIL_AddAddress("[email protected]","")
? MAIL_SetSubject("teste do sistema")
? MAIL_AddReplyTo("[email protected]","")
? MAIL_AddBody("simples teste")
*? mail_configgravar("d:\SAIDA.INI")


? "send",MAIL_Send(0)

ret=SPACE(200)
? "ultimo retorno",MAIL_UltimoRetorno(@ret,1024)
? "ret",ret

 

FUNCTION px(arqConfig, chaveCrypt)
    local hResult, buffer, bufferLen, oErr
        arqConfig = Iif(Vartype(arqConfig)#"C", "", arqConfig)
        chaveCrypt = Iif(Vartype(chaveCrypt)#"C", "", chaveCrypt)
        hResult = MAIL_Inicializar(StrConv(arqConfig, STR_TO_UTF8), StrConv(chaveCrypt, STR_TO_UTF8))
        
        ? hresult
ENDFUNC

 

p2.PNG

P1.png

tu compila os componentes? ou pegou aqi no fórum?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites
  • Consultores
Renato Rubinho Experienced

Renato Rubinho

Postado
  • Consultores
Postado

Bom dia,

Até onde eu sabia, a autenticação básica do office365 não iria mais funcionar a partir de 01/01/2023.

Será necessária a autenticação com OAuth2.

Veja se isso se aplica também ao hotmail.com e outlook.com.br

No link a seguir tem uma citação de 31/03/2023.

Levante essas informações, se for isso mesmo, não conseguirá mais usar.

https://learn.microsoft.com/pt-br/exchange/clients-and-mobile-in-exchange-online/deprecation-of-basic-authentication-exchange-online

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
22 minutos atrás, nelson costa disse:

bom, hoje 04.01, consegui enviar e-mail normalmente pelo TESTE , então está funcionando.

a rotina pela DLL é que não funciona, então creio que sejam codigos diferentes.

 

 

 

os códigos são iguais pois ele consome o componente e preenche seus dados.

não lembro se a dll aqui no fórum na parte aberta demo deixa fazer envios normalmente.

anexe o log dela. habilite a mesma e envie o log pois é trial

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites
nelson costa Rookie

nelson costa

Postado
  • Autor
Postado 
04/01/23 10:09:24:931 - LIB_Inicializar( d:\MailTeste.ini,  )
04/01/23 10:09:24:931 -    ACBrLibMail - 0.1.8.276
04/01/23 10:10:29:652 - LIB_Inicializar( d:\MailTeste.ini,  )
04/01/23 10:10:29:652 -    ACBrLibMail - 0.1.8.276
04/01/23 10:15:51:333 - TLibMailConfig.AplicarConfiguracoes: d:\MailTeste.ini
04/01/23 10:15:51:333 - Travar
04/01/23 10:15:51:334 - TLibMailConfig.AplicarConfiguracoes - Feito
04/01/23 10:15:51:334 - Destravar
04/01/23 10:15:51:334 - TLibMailConfig.Ler - Feito
04/01/23 10:15:51:334 - Destravar
04/01/23 10:15:51:334 - TACBrLibMail.Inicializar - Feito
04/01/23 10:15:51:334 - LIB_Inicializar( d:\MailTeste.ini,  )
04/01/23 10:15:51:334 -    ACBrLibMail - 0.1.8.276
04/01/23 10:15:51:340 - MAIL_AddAddress( [email protected], )
04/01/23 10:15:51:341 - Travar
04/01/23 10:15:51:343 -    SetRetorno(0, )
04/01/23 10:15:51:344 - Destravar
04/01/23 10:15:51:345 - MAIL_SetSubject( teste do sistema )
04/01/23 10:15:51:345 - Travar
04/01/23 10:15:51:346 -    SetRetorno(0, )
04/01/23 10:15:51:346 - Destravar
04/01/23 10:15:51:346 - MAIL_AddReplyTo( [email protected], )
04/01/23 10:15:51:347 - Travar
04/01/23 10:15:51:347 -    SetRetorno(0, )
04/01/23 10:15:51:347 - Destravar
04/01/23 10:15:51:347 - MAIL_AddBody( simples teste[CR][LF] )
04/01/23 10:15:51:348 - Travar
04/01/23 10:15:51:348 -    SetRetorno(0, )
04/01/23 10:15:51:348 - Destravar
04/01/23 10:15:51:349 - MAIL_Send
04/01/23 10:15:51:350 - Travar
04/01/23 10:16:11:714 - Destravar
04/01/23 10:16:11:715 -    SetRetorno(-10, SMTP Error: Unable to send MailFrom.
530 5.7.57 Client not authenticated to send mail. Error: 535 5.7.3 Authentication unsuccessful [ROAP284CA0216.BRAP284.PROD.OUTLOOK.COM])
04/01/23 10:16:11:717 - LIB_UltimoRetorno
04/01/23 10:16:11:718 -    MoverStringParaPChar. StrLen:173, BufLen:1024
04/01/23 10:16:11:718 -    Codigo:-10, Mensagem:SMTP Error: Unable to send MailFrom.[CR][LF]530 5.7.57 Client not authenticated to send mail. Error: 535 5.7.3 Authentication unsuccessful [ROAP284CA0216.BRAP284.PROD.OUTLOOK.COM]

 

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
11 minutos atrás, nelson costa disse:

segue o LOG

ACBrLibMail-20230104.zip 737 B · 0 downloads

primeira situação versão da dll ACBrLibMail 0.1.8.283

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado
4 horas atrás, nelson costa disse:

segue o LOG, dessa vez usando a ULTIMA versao

 

 

ACBrLibMail-20230106.zip 674 B · 0 downloads

estranho ele diz que não conseguiu. mas pelo que tu reportou as dependencias estão atualizadas que é o openssl para 1.0 e demais arquivos.

tu compila as dll´s?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites
  • 2 semanas depois ...
  • Consultores
antonio.carlos Experienced

antonio.carlos

Postado
  • Consultores
Postado
Em 06/01/2023 at 16:32, nelson costa disse:

Resolvido o Problema:

estou usando agora a função MAIL_ConfigGravarValor(   para setar os parametros, um a um.

a função MAIL_ConfigLer   para ler o arquivo INI, definitivamente NAO FUNCIONA.

Era ESSE o problema.

Obrigado a todos pela atenção.

Realizei testes com o programa exemplo C#
Método ConfigLer, esta funcional. sem problemas, só por desencargo, fiz um teste de envio utilizando o Office365 também.
Tudo certo !
 

  • Curtir 3
Link para o comentário
Compartilhar em outros sites
  • Este tópico foi criado há 655 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...