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á 486 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_Black-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_Black-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_Black-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_Black-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á 486 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.