Como Enviar E-mail?

[iblop]

Ola, estou precisando anexar em meu programa uma forma de enviar curtos e-mails.

Andei pesquisando e aprendi a enviar usando o controle de MAPI , porem ele requer permisão do usuario para enviar o e-mail...

alguém poderia me ensinar outra forma de enviar e-mails pelo vb?

OBS: estou usando o VB 6

[Graymalkin]

Dê uma olhada no componente Py.Sendmail: http://www.gs.kitbr.com/pysendmail.html

Tem um exemplo de utilização em VB6 no pacote.

Abraços,

Graymalkin

[iblop]

Eu tentei dar download do Py.Sendmail, mas o download termina +- em 4%

O problema está no arquivo ou na minha conexão?

Obrigado por indicar o site, gostei muido do conteudo =)

[Graymalkin]

Eu tentei dar download do Py.Sendmail, mas o download termina +- em 4%

O problema está no arquivo ou na minha conexão?

Acabei de fazer um teste aqui e o arquivo foi baixado corretamente. Utilizei o Mozilla Firefox para baixar.

Obrigado por indicar o site, gostei muido do conteudo =)

Obrigado. :)

Abraços,

Graymalkin

[iblop]

Consegui baixar o arquivo, mas quando fui testar o exemplo em VB, ocorre um erro em :

Set k = CreateObject("Py.SendMail")

no Private Sub cmdEnviar_Click()

(diz que não pode criar o objeto...)

Como posso arrumar isto?

[Graymalkin]

Consegui baixar o arquivo, mas quando fui testar o exemplo em VB, ocorre um erro em :

Set k = CreateObject("Py.SendMail")

no Private Sub cmdEnviar_Click()

(diz que não pode criar o objeto...)

Como posso arrumar isto?

Você não leu como instalar o componente? Dê uma olhada no LEIA-ME.txt que acompanha o pacote. É necessário registrar o componente com o regsvr32.

Abraços,

Graymalkin

[iblop]

Oque eu devo colocar em "Servidor:" para que ele mande a mensagem para este e-mail:

iblop@bol.com.br ?

[Graymalkin]

Oque eu devo colocar em "Servidor:" para que ele mande a mensagem para este e-mail:

iblop@bol.com.br ?

O seu servidor SMTP, ou seja, o servidor pelo qual você envia suas mensagens. Pode ser qualquer servidor STMP ao qual você tenha acesso. Por exemplo, se você é assinante do provedor Inter.net (http://www.br.inter.net/) o seu servidor é smtp.br.inter.net. Se você utiliza a iG, o seu servidor é smtp.ig.com.br. Se não me engano, o do BOL é smtp.bol.com.br mesmo, porém você tem que acessar a conta via POP3 (para receber os e-mails) antes de poder enviar algum (e isso é uma limitação imposta pela BOL).

Se antes você estava enviando e-mails via MAPI é porque você tinha uma conta configurada no Outlook ou no Outlook Express. E na configuração desta conta entra o endereço do servidor. Dê uma olhada lá.

Abraços,

Graymalkin

[iblop]

Quer dizer que o servidor smtp serve para pegar a mensagem que o computador envia e manda-a para o e-mail, e não tem nada a ver com o e-mail nem com a conexão?

Então mesmo eu usando um destinatario da BOL, estar conectado usando uma conexão IG e o servidor SMTP que o programa está utilizando é o da hotmail por exemplo vai enviar ?

[Graymalkin]

Quer dizer que o servidor smtp serve para pegar a mensagem que o computador envia e manda-a para o e-mail, e não tem nada a ver com o e-mail nem com a conexão?

Então mesmo eu usando um destinatario da BOL, estar conectado usando uma conexão IG e o servidor SMTP que o programa está utilizando é o da hotmail por exemplo vai enviar ?

Sim, o SMTP só tem relação com o e-mail do remetente (de quem envia). Se você quer passar um e-mail para iblop@bol.com.br, pelo servidor da iG você precisa especificar que o remetente é um usuário do SMTP da iG (como iblop@ig.com.br). O mesmo vale para o Hotmail, ou seja, você tem que passar por um e-mail do Hotmail, mas o destinatário pode ser qualquer um. Isso, é claro, se o Hotmail tiver um servidor SMTP.

Abraços,

Graymalkin

[iblop]

Bom, eu já configurei tudo, mas não manda o e-mail mesmo assim O.O

Não estou entendendo oque esta acontecendo...

Olha como esta:

Servidor: smtp.mail.yahoo.com.br

De: matheus4569@yahoo.com.br

Para: matheus4569@hotmail.com

Assunto: Teste

Mensagem: Teste de mensagem

-Não anexei nada

-Não tem imagens

e mesmo assim aparece a mensagem: "Retorno: Connection unexpectedly closed"

ao tentar enviar o e-mail, e não envia =/

[Graymalkin]

Você sabe se o servidor requer autenticação? Se for o caso, você precisa preencher as propriedades User com o nome do usuário (que, geralmente, é o próprio e-mail do remetente ou só a parte antes da arroba) e Password com a senha. A maioria dos servidores SMTP exige isso, a fim de que não sejam mal utilizados (para envio de spam em massa, por exemplo).

Abraços,

Graymalkin

[iblop]

Eu já testei colocar a autenticação destas duas maneiras, mas ele retorna uma mensagem dizendo que não foi possivel autenticar("apenas quando eu coloco para autenticar")

O.o acho que não vou conseguir nunca

[Graymalkin]

Eu já testei colocar a autenticação destas duas maneiras, mas ele retorna uma mensagem dizendo que não foi possivel autenticar("apenas quando eu coloco para autenticar")

O.o acho que não vou conseguir nunca

Qual servidor você está utilizando? De qualquer maneira, criei uma conta lá no meu servidor para você poder fazer um teste aí:

    Set k = CreateObject("Py.SendMail")
    
    k.SMTPServer = "mail.gs.kitbr.com"
    k.To = "QUALQUER E-MAIL"
    k.From = "teste@gs.kitbr.com"
    k.Subject = "Assunto"
    k.Body = "Mensagem"
    k.User = "teste+gs.kitbr.com"
    k.Password = "1234"

    retorno = k.Send()
    MsgBox "Retorno: " & retorno

Veja se dá certo com esse.

Abraços,

Graymalkin

[iblop]

Oo Nossa agora quaseee deu....

Aparece:

"Retorno: ok"

Mas não chegou o e-mail para mim =P

Sera que demora algum tempo? ou não deu mesmo?

OBS: neste code que você me mandou

Set k = CreateObject("Py.SendMail")

k.SMTPServer = "mail.gs.kitbr.com"

k.To = "QUALQUER E-MAIL"

k.From = "teste@gs.kitbr.com"

k.Subject = "Assunto"

k.Body = "Mensagem"

k.User = "teste+gs.kitbr.com"

k.Password = "1234"

retorno = k.Send()

MsgBox "Retorno: " & retorno

Tem duas linhas adicionas em relação ao meu que estavam nas minhas sources:

retorno = k.Send()

MsgBox "Retorno: " & retorno

Isso tem algo a ver com o problema que estava dando?

Obrigado.

retorno = k.Send()

MsgBox "Retorno: " & retorno

[Graymalkin]

Oo Nossa agora quaseee deu....

Aparece:

"Retorno: ok"

Mas não chegou o e-mail para mim =P

Sera que demora algum tempo? ou não deu mesmo?

O teste que fiz aqui chegou, mas talvez possa demorar um pouco.

OBS: neste code que você me mandou

Set k = CreateObject("Py.SendMail")

k.SMTPServer = "mail.gs.kitbr.com"

k.To = "QUALQUER E-MAIL"

k.From = "teste@gs.kitbr.com"

k.Subject = "Assunto"

k.Body = "Mensagem"

k.User = "teste+gs.kitbr.com"

k.Password = "1234"

retorno = k.Send()

MsgBox "Retorno: " & retorno

Tem duas linhas adicionas em relação ao meu que estavam nas minhas sources:

retorno = k.Send()

MsgBox "Retorno: " & retorno

Isso tem algo a ver com o problema que estava dando?

Não, e estas duas linhas estão lá sim (só que ao invés de um MsgBox eu mostro o resultado em uma Label, mas o efeito é o mesmo).

Abraços,

Graymalkin

[Guest Visitante]

Au tava olhando esse projeto ai e achei muito util...

mas tipow...

não tem como incluir esse componente "Py.SendMail" no executavel?

e quando o programa for executado ele já registra o componente

automatico?

falou

[Graymalkin]

Até seria possível, mas a meu ver não há necessidade disto já que:

1º - o executável ficaria grande desnecessariamente;

2º - para todo programa em VB você precisa de outras DLLs, as quais você não poderia fazer este mesmo processo;

3º - é muito mais elegante (e prático) criar um programa de instalação para o seu aplicativo, que conteria os arquivos do Py.Sendmail, além das DLLs do VB6 necessárias à execução do seu aplicativo.

Abraços,

Graymalkin