AJUDA COM EMAIL

FABRICIOWEB 19/03/2015 16:28:35
#445358
Alguem sabe como receber email com o vb sem usar outlook?
JABA 19/03/2015 16:48:53
#445360
http://www.macoratti.net/12/01/net_gmail1.htm
FABRICIOWEB 19/03/2015 16:54:50
#445361
Enviar ja envio. Preciso receber.
JABA 20/03/2015 14:35:44
#445384
Aqui tem tudo o que você precisa:

https://social.msdn.microsoft.com/Forums/pt-BR/4cb6c1ee-dbd9-4f34-839f-3792673b8505/como-receber-email-no-vbnet?forum=vsvbasicpt
MARCELOSN 20/03/2015 17:14:03
#445389
veja se ajuda


http://hpop.sourceforge.net/

dll para baixar: http://sourceforge.net/projects/hpop/files/latest/download

=====================================================================================


segue exemplo de codigo


using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using OpenPop.Pop3;
using OpenPop.Mime;

namespace pop
{
public partial class Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{

}

protected void btnLer_Click(object sender, EventArgs e)
{
try
{
using (Pop3Client client = new Pop3Client())
{
//Para conectar no servidor do gmail use a porta 995 e SSL
client.Connect([Ô]pop.gmail.com[Ô], 995, true);
//Para conectar no servidor do hotmail use a porta 995 e SSL
//client.Connect([Ô]pop3.live.com[Ô], 995, true);
//usuário e senha para autenticar
client.Authenticate(txtUsername.Text, txtPassword.Text);
//Pega o número de mensagens
int messageCount = client.GetMessageCount();

//Instanciar a lista
List<Message> mensagens = new List<Message>();
//Pegar as mensagens
for (int i = messageCount; i > 0; i--)
{
//Adicionar a mensagem a lista
mensagens.Add(client.GetMessage(i));
}
//Popular o repeater com as mensagens
repMensagens.DataSource = mensagens;
repMensagens.DataBind();
}
}
catch (Exception ex)
{
//Caso ocorra algum erro, uma mensagem será exibida na página
litMensagemErro.Text = ex.ToString();
}
}

protected void repMensagens_ItemDataBound(object sender, RepeaterItemEventArgs e)
{
if (e.Item.ItemType == ListItemType.AlternatingItem || e.Item.ItemType == ListItemType.Item)
{
//Limpar a mensagem de erro.
litMensagemErro.Text = string.Empty;
//Pegar o Container.DataItem e converter para o tipo Message.
Message mensagem = (Message)e.Item.DataItem;
//Encontrar os Literals no Repeater
Literal litDe = (Literal)e.Item.FindControl([Ô]litDe[Ô]);
Literal litTitulo = (Literal)e.Item.FindControl([Ô]litTitulo[Ô]);
Literal litMensagem = (Literal)e.Item.FindControl([Ô]litMensagem[Ô]);
//Popular os literals com os dados do Container.DataItem
//DisplayName = Nome de quem enviou
//Address = e-mail de quem enviou
litDe.Text = string.Format([Ô]{0} ({1})[Ô], mensagem.Headers.From.DisplayName, mensagem.Headers.From.Address);
//Subject = Pegar o título da mensagem
litTitulo.Text = mensagem.Headers.Subject;
//Pegar o texto da mensagem
//Verifica se o conteúdo é texto
MessagePart mpText = mensagem.FindFirstPlainTextVersion();
MessagePart mpHtml = mensagem.FindFirstHtmlVersion();
if (mpText != null)
litMensagem.Text = mpText.GetBodyAsText();
else if (mpHtml != null)
litMensagem.Text = mpHtml.GetBodyAsText();
}
}
}
}


=======================================================================================


lt.aspx

<%@ Page Language=[Ô]C#[Ô] AutoEventWireup=[Ô]true[Ô] CodeBehind=[Ô]Default.aspx.cs[Ô] Inherits=[Ô]pop.Default[Ô] %>

<!DOCTYPE html PUBLIC [Ô]-//W3C//DTD XHTML 1.0 Transitional//EN[Ô] [Ô]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[Ô]>
<html xmlns=[Ô]http://www.w3.org/1999/xhtml[Ô]>
<head id=[Ô]Head1[Ô] runat=[Ô]server[Ô]>
<title></title>
</head>
<body>
<form id=[Ô]form1[Ô] runat=[Ô]server[Ô]>
<div>
<div style=[Ô]color:Red[Ô]>
<asp:Literal ID=[Ô]litMensagemErro[Ô] runat=[Ô]server[Ô] />
</div>
<table border=[Ô]0[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô]>
<tr>
<td>
usuário:
</td>
<td>
<asp:TextBox runat=[Ô]server[Ô] ID=[Ô]txtUsername[Ô] />
</td>
</tr>
<tr>
<td>
senha:
</td>
<td>
<asp:TextBox runat=[Ô]server[Ô] ID=[Ô]txtPassword[Ô] TextMode=[Ô]Password[Ô] />
</td>
</tr>
</table>
<div>
<asp:Button ID=[Ô]btnLer[Ô] Text=[Ô]Ler[Ô] runat=[Ô]server[Ô] onclick=[Ô]btnLer_Click[Ô] />
</div>
<asp:Repeater runat=[Ô]server[Ô] ID=[Ô]repMensagens[Ô] OnItemDataBound=[Ô]repMensagens_ItemDataBound[Ô]>
<HeaderTemplate>
<table border=[Ô]1[Ô]>
<tr>
<td>
<strong>De</strong>
</td>
<td>
<strong>Título</strong>
</td>
<td>
<strong>Mensagem</strong>
</td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td>
<asp:Literal ID=[Ô]litDe[Ô] runat=[Ô]server[Ô] />
</td>
<td>
<asp:Literal ID=[Ô]litTitulo[Ô] runat=[Ô]server[Ô] />
</td>
<td>
<pre><asp:Literal ID=[Ô]litMensagem[Ô] runat=[Ô]server[Ô] /></pre>
</td>
</tr>
</ItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</asp:Repeater>
</div>
</form>
</body>
</html>
OMAR2011 20/03/2015 17:55:58
#445391
Isto não combina,MARCELOSN
C################.
FABRICIOWEB 20/03/2015 20:04:45
#445393
Como usar em vb6
MARCELOSN 20/03/2015 20:50:49
#445394
boa noite

No exemplo somente indiquei o .NET não estava com os link do VB6
segue alguns exemplos para analise:

VB6 - Usando o Controle Winsock ==> http://www.macoratti.net/winsock.htm
outro modelo Winsock ==> http://www.developerfusion.com/code/2453/send-receive-emails-using-winsock-and-pop3/


http://www.example-code.com/vb/pop3.asp
https://www.emailarchitect.net/eagetmail/ex/b/1.aspx
http://www.marshallsoft.com/see4vb.htm
http://www.marshallsoft.com/pb-email-component.htm
http://www.afterlogic.com/forum/forum_posts.asp?TID=2270
http://smtppop3-email-engine-for-visual-basic.antivirusreport-516-10972.datapicks.com/



.NET
http://www.codeproject.com/Articles/18008/Simple-POP-Email-Class
Tópico encerrado , respostas não são mais permitidas
Voltar