Envio de e-mail

[Softwhouse]

Ficou claro agora ou prefere que desenhe ?

[Itamar M. Lins Jr.]

Olá!
Tá revoltado ?
Não precisa pagar por nada disso. Ficou claro ou prefere que desenhe ?

[Softwhouse]

Não, Itamar. Não estou revoltado. Fiz a pergunta correta, vc mesmo entendeu e respondeu, e outros mais, mas o José resolveu complicar e pelo jeito vc também.

[Softwhouse]

Eu deixei claro que procuro uma alternativa sobre envio de Whats, mas se não sabem ler ...

[Itamar M. Lins Jr.]

Olá!
O principal vc ainda não respondeu.
O que vc usa que não funciona mais ?
Tá parecendo que vc quer vender alguma coisa... Pelo menos dá a impressão, inclusive quando diz sobre o ACBr, coisa que baixa e instala sem custo nenhum.

[Itamar M. Lins Jr.]

Olá!
Vc abriu o tópico com esse titulo: Envio de e-mail

Existe alguma solução para o envio de e-mail ?

Existe solução, tem várias formas de resolver.

Agora é Whats... Que pode ser WhatsApp provavelmente.
Quer saber se alguém tem um similar mais barato que 200 dolares é isso ?
Pq email, funciona e enviar msg pelo whatsapp tem várias maneiras também.

[Softwhouse]

Se eu quizésse vender alguma coisa não seria por aqui. A rotina que usava está nos samples do harbour, não funciona mais, exceto com algum ou outro provedor, por isso que perguntei sobre a lib para enviar por waths. Essa lib está oferecida no site do ACBR por 200 dólares.

[Itamar M. Lins Jr.]

Olá!
Pronto!!!

A rotina que usava está nos samples do harbour, não funciona mais,

Que rotina é essa ?
Qual é o provedor ?

[Softwhouse]

Foi isso que perguntei.

[Softwhouse]

Código: Selecionar todos

#include 'simpleio.ch'
Function Mail(cHost, nPort, lSSL, cFrom, cTo, cCC, cBCC, cMsg, cSubject, aFiles, cPassword, lRead)
Local lStartTls:= .F.

cHost:= Lower(cHost)

   /* SMTPS trabalha com SSL/TLS na porta 465 e com STARTTLS
      na porta 587. O modo STARTTLS ‚ é totalmente automático e requer
      que SSL/TLS seja desativado primeiro (ele é ativado em
      pedido após o comando STARTTLS)*/     

Hb_Default(@nPort, IIf(lStartTls, 587,465))

Do Case
   Case cHost == 'google' .Or. '@gmail.com' $ cFrom .Or. '@googlemail.com' $ cFrom
        cHost:= 'smtp.gmail.com'
   Case cHost == 'office365'
        cHost:= 'smtp.office365.com'; lStartTls:= .T.
   Case cHost == 'outlook' .Or. '@outlook.com' $ cFrom .Or. 'hotmail.com' $ cFrom .Or. '@hotmail.com' $ cFrom
        cHost:= 'smtp-mail.outlook.com'; lStartTls:= .T.
   Case cHost == 'uol' .Or. '@uol.com.br' $ cFrom
        cHost:= 'smtps.uol.com.br'
   Case cHost == 'yahoo' .Or. '@yahoo.com' $ cFrom
        cHost:= 'smtp.mail.yahoo.com'
   Case cHost == 'ig' .Or. '@ig.com.br' $ cFrom
        cHost:= 'smtp.ig.com.br'
EndCase

If  Tip_MailSend( ;
    cHost, ;
    nPort, ;
    cFrom, ;
    cTo, ;
    cCC /* CC */, ;
    cBCC /* BCC */, ;
    cMsg /* Corpo Mensagem */, ;
    cSubject /* Assunto */, ;
    aFiles /* attachment */, ;
    cFrom, ;
    cPassword, ;
    '', ;
    Nil /* nPriority */, ;
    lRead /* lRead */, ;
    .F. /* lTrace */, ;
    .F., ;
    Nil /* lNoAuth */, ;
    Nil /* nTimeOut */, ;
    Nil /* cReplyTo */, ;
    nPort == 465 )

    Alert('e-mail enviado com sucesso!')
Else
    Alert('Não foi possível enviar o e-mail. Verifique as configurações de e-mail.')
EndIf
Return(.T.)

[Softwhouse]

Mas se tivesse lido com atenção veria que tentei optar pelo WhatsAPP (por extenso já que não entendeu quando disse Whats)

[Softwhouse]

Vc tem opções? então porque não indica?

[Itamar M. Lins Jr.]

Olá!
Pois é, uso essa mesma rotina para enviar do yahoo.com.br
Tenho 2 contas, bem antigas,

https://www.hostinger.com/br/email-prof ... BKEALw_wcB

2,45 por mês.
Convesando com a IA da Hostinger:

Kodee

Sim, os e-mails da Hostinger aceitam SMTP.
Para Hostinger Email, os dados principais são:

Servidor SMTP: smtp.hostinger.com
Porta com SSL: 465
Porta com TLS/STARTTLS (alternativa): 587
Autenticação: e-mail completo (ex.: nome@seudominio.com ) + senha da caixa

Se me disser seu domínio, posso confirmar qual serviço (Hostinger Email, Titan ou Google Workspace) você está usando e enviar os dados exatos para o seu caso.

[Softwhouse]

ACBR baixa sem custo? Só se for para vc.

[Softwhouse]

Itamar, eu já passei dos 60 anos há bastante tempo. Não quero bater boca. Pedi ajuda, se não tiverem como ajudar pelo menos não atrapalhem tipo José Quintas.