Enviar E-mail


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Enviar E-mail

arcadyum

PARA DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 10/05/2010 01:09 hs

Pessoal,
Gostaria que em ajudassem em uma empreitada em que já testei todos os códigos que encontrei em nenhum funcionou.
Preciso desenvolver um código que envie um e-mail através do VB6.0. Já tentei usar os controles CDOSYS e Winsock porém os resultados não foram satisfatórios. Não estou descartandoo uso deles, talvez eu não os tenha configurado adequadamente. Estou solicitando que me ajudem a escolher qual o melhor controle e como configurar para enviar e-mail. Somente enviar e-mail's. Tenho os e-mails em um banco de dados. Serão escolhidos e posteriormente enviar os e-mails para os destinatários.
Aguardando notícias.

FKNMALTA

FRANCA
SP - BRASIL

ENUNCIADA !

Postada em 10/05/2010 19:55 hs

Olá!! Ja tentou o Py.SendMail? é simples e pratico e tem alguns exmplos com a instalação (é um componente), da uma "googada" ai que você vai achar sobre ele!!

lramos7

BARUERI
SP - BRASIL

ENUNCIADA !

Postada em 29/07/2010 16:49 hs

'crie uma referencia para cdosys.dll

    Dim CDO As CDO.Message
    Set CDO = New CDO.Message

        caminho = "http://schemas.microsoft.com/cdo/configuration/"
        CDO.From = emailorigem@origem.com.br
        CDO.To = "emaildestino@destino.com.br"
        CDO.Subject = "Assunto do seu e-mail"

        CDO.TextBody = "CORPO DA MENSAGEM.... "

        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") = "seuservidorsmtp"
        CDO.Configuration.Fields.Item(caminho & "sendusername") = "emailorigem"
        CDO.Configuration.Fields.Item(caminho & "sendpassword") = "senhadecontadoemail"
        CDO.Configuration.Fields.Update

        CDO.Send

        Set CDO = Nothing

'espero ter ajudado.

Leandro Ramos

msn: nanoenana@hotmail.com

Rógerio
não registrado

ENUNCIADA !

Postada em 03/08/2011 12:25 hs

Galera, eu sempre enviei email pelo CDO, mas agora em outro projeto.
Envia o email mas retorna o erro "Variável Object ou with bloco variável não definida"

Já vasculhei o código inteiro para saber onde que está esta variavel e tirar este erro...funciona em outro projeto desse jeito.

   Dim caminho As String
   caminho = "http://schemas.microsoft.com/cdo/configuration/"
   Dim CDO As CDO.message
   Set CDO = New CDO.message
         CDO.Configuration.Fields(caminho & "smtpserver") =SMTP
         CDO.Configuration.Fields(caminho & "smtpserverport") = Porta
         CDO.Configuration.Fields(caminho & "sendusing") = 2
         CDO.Configuration.Fields(caminho & "smtpauthenticate") = 1
         CDO.Configuration.Fields(caminho & "smtpusessl") = True
         CDO.Configuration.Fields(caminho & "sendusername") =TxtUser
         CDO.Configuration.Fields(caminho & "sendpassword") = smtpPSW
         CDO.Configuration.Fields(caminho & "smtpconnectiontimeout") = 60
         CDO.Configuration.Fields.Update
    With CDO
       .From = "" & "System" & " <" & TxtUser & ">"
       .Subject = "Teste de Envio"
       .To = meuemail
       .TextBody = strBody
       .BodyPart.Charset = "utf-8"
       .Send
   End With

             If Err = 0 Then
                MsgBox "Enviado!", vbInformation, "E-mail enviado com êxito!"
                Screen.MousePointer = vbCustom
             Else
                MsgBox Err.Description, vbCritical
            End If
   Set CDO = Nothing

Rógerio
não registrado

ENUNCIADA !

Postada em 03/08/2011 13:54 hs

Caso alguém consiga resolver ficarei grato, por enquanto vou apenas omitir o erro, já que envia o email normalmente.

Mas isso não seria a forma correta de se fazer!
Acredito que o erro não esta ligado a função e sim alguma propriedade do projeto. Pois no outro projeto roda perfeitamente sem erro.

           Select Case Err
              Case 0, 91
                MsgBox "Enviado!", vbInformation, "E-mail enviado com êxito!"
                Screen.MousePointer = vbCustom
              Case Else
                MsgBox Err.Description, vbCritical, Dest
             End Select

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR