ENVIAR E-MAIL

 Tópico anterior Próximo tópico Novo tópico

ENVIAR E-MAIL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490806 - 17/10/2019 12:33:21

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


   Boa tarde a todos

Estava testando este cdigo que achei, e no tem jeito de fazer enviar,  parece ser simples, mas no consigo enviar...
registrei a dll regsvr32 smtpsvg.dll
Fiz vrios testes com smtp e nada,
Algum sabe o que pode ter de errado?

  
Private Sub cmdenviar_Click()
Dim sucesso As Boolean []
Dim mensagem As String
Dim mailer As SMTPsvg.mailer

Set mailer = CreateObject([]SMTPsvg.Mailer[]) []- Conexo com a dll do servidor

mailer.RemoteHost = []mail.seuservidorsmtp.com.br[] []Local onde voc colocar o smtp.

mailer.FromName = txtremetente []- Procura no form o nome colocado
mailer.FromAddress = txtemailremetente []- Procura no form o e-mail colocado
mailer.AddRecipient txtdestino, txtemaildestino []- O nome de quem est enviando e o E-mail
mailer.Subject = txtassunto []- Procura no form o assunto colocado

mailer.BodyText = txtTexto []- Procura no form o texto colocado

sucesso = mailer.SendMail

If sucesso Then
   mensagem = []O E-MAIL ENVIADO COM SUCESSO![]
Else
   mensagem = []O E-MAIL NO FOI ENVIADO COM SUCESSO![]
End If

MsgBox mensagem, vbInformation, []Enviando emails usando ASPMAIL[]

End Sub




#490810 - 17/10/2019 15:09:11

LVFIOROT
SERRA
Cadast. em:Março/2012


Última edição em 17/10/2019 15:15:42 por LVFIOROT

cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padro - 25)

acho que o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/



#490816 - 18/10/2019 09:29:09

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padro - 25)

acho que o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/


Este frum que vc colocou, no final do poster o cara diz, ...: Por favor algum me ajude!....





#490836 - 18/10/2019 15:43:19

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Alm do j citado usurio e senha, se voc est rodando exatamente esse cdigo, o valor []mail.seuservidorsmtp.com.br[] deve conter, bem o SEU SERVIDOR SMTP.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#490891 - 22/10/2019 15:44:53

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padro - 25)

acho que o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/



     ento, criei um formulrio para cadastrar os dados
      rsLocal.AddNew
      rsLocal(0) = txtEmail
      rsLocal(1) = txtSenha
      rsLocal(2) = Porta
      rsLocal(3) = SMTP
      rsLocal.Update

  e coloquei para cadastrar

a porta e o smtp

Private Sub optOut_Click()
      []   Porta = 25
      []   Porta = 995
          Porta = 587
      []   SMTP = []smtp-mail.outlook.com[]
          SMTP = []smtp.live.com[]
      []   SMTP = []smtp-mail.outlook.com[]

testei varias portas e vrios smtp e no consigo
Porem assim mesmo ele no funciona
no tem jeito
    algum tem um cdigo deste de enviar e-mail para vender?



Resposta escolhida #490908 - 23/10/2019 09:30:05

LUIS2014
CURITIBA
Cadast. em:Agosto/2014


Use a CDO

  Dim MSG As CDO.Message
Dim CONFIG As CDO.Configuration

Set MSG = New CDO.Message
Set CONFIG = New CDO.Configuration

CONFIG.Fields.Item(cdoSendUsingMethod) = 2          []valor 2, para enviar a mensagem usando a rede.
CONFIG.Fields.Item(cdoSMTPServer) = TXT_smtp        []nome servidor SMTP.
CONFIG.Fields.Item(cdoSMTPServerPort) = TXT_porta   []porta servidor SMTP (usar como padro: 25).
CONFIG.Fields.Item(cdoSMTPAuthenticate) = 1         []valor 1, precisa autenticar usuario
CONFIG.Fields.Item(cdoSMTPConnectionTimeout) = 30
CONFIG.Fields.Item(cdoSendUserName) = TXT_user      []precisa pegar o usuario do email que esta enviando[]
CONFIG.Fields.Item(cdoSendPassword) = TXT_senha     []precisa pegar o password do usuario
CONFIG.Fields.Update

Set MSG.Configuration = CONFIG
MSG.From = TXT_de
MSG.To = TXT_Destino
MSG.CC = TXT_copia
MSG.Subject = TXT_assunto
MSG.TextBody = TXT_mensagem

MSG.Send




#490930 - 24/10/2019 09:23:03

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Luciano,
O cdigo fonte desse sistema tem uma estrutura completa para envio de e-mails,
voc j adquiriu, caso tenha perdido solicite novamente com a central de atendimento
contato[#]cursoexcelvba.com.br (troque o [#] por @)
Ou solicite no atendimento online.
Espero ter ajudado.

Cursos de Excel e VB6:
cursoexcelvba.com.br



#490935 - 24/10/2019 12:04:58

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Luciano,
O cdigo fonte desse sistema tem uma estrutura completa para envio de e-mails,
voc j adquiriu, caso tenha perdido solicite novamente com a central de atendimento
contato[#]cursoexcelvba.com.br (troque o [#] por @)
Ou solicite no atendimento online.
Espero ter ajudado.


         Sim, vou entrar em contato, obrigado!

     Agradeo a todos pela ajuda,
     tenho aprendido muito aqui, e o interessante que no s com os meus e sim com muitos outros tpicos!
     agradecendo em especial aoLUIS2014 pela presteza,
     e ao meu amigo MARIOANDRADE,
    
    Atenciosamente,







 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LUCS em 17/01/2020 19:22:48