Tópico anterior Próximo tópico Novo tópico
ENVIAR E-MAIL
VB / VBA
| #490806 - 17/10/2019 12:33:21 | ||||
 LUCS BALNEARIO CAMBORIU Cadast. em:Novembro/2018 
|
Boa tarde a todos
Estava testando este código que achei, e não tem jeito de fazer enviar, parece ser simples, mas não consigo enviar... registrei a dll regsvr32 smtpsvg.dll Fiz vários testes com smtp e nada, Alguém 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[Ô]) [ô]- Conexão 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 NÃO 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 padrão - 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 padrão - 25) acho que é o source https://github.com/ibauersachs/smtpsvg a resposta https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/ Este fórum que vc colocou, no final do poster o cara diz, ...: Por favor alguém me ajude!.... |
|||
| #490836 - 18/10/2019 15:43:19 | ||||
 KERPLUNK RIO GRANDE DO SUL Cadast. em:Junho/2009
Membro da equipe
|
Além do já citado usuário e senha, se você está rodando exatamente esse código, o valor [Ô]mail.seuservidorsmtp.com.br[Ô] deve conter, bem o SEU SERVIDOR SMTP.
_______________________________________________________________________ Virei Oráculo! 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 padrão - 25) acho que é o source https://github.com/ibauersachs/smtpsvg a resposta https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/ então, criei um formulário 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 vários smtp e não consigo Porem assim mesmo ele não funciona não tem jeito alguém tem um código 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 padrão: 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 código 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 código 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! Agradeço a todos pela ajuda, tenho aprendido muito aqui, e o interessante que não só com os meus e sim com muitos outros tópicos! agradecendo em especial aoLUIS2014 pela presteza, e ao meu amigo MARIOANDRADE, Atenciosamente, |
|||
Tópico anterior Próximo tópico Novo tópico