ENVIAR EMAIL SIMPLES
Olá pessoal boa tarde, gostaria de enviar email apartir do meu aplicativo, e só uma tela tipo (fale conosco)...
encontrei algumas coisas na internet mas não to entendendo muito bem os codigo e como fazer a coisa funcionar. Se alguém tiver um exemplo eu agradeço muito....
Grata!!!
OPS: a maneira q estou tentando achei no site: http://www.macoratti.net/email_vb.htm
encontrei algumas coisas na internet mas não to entendendo muito bem os codigo e como fazer a coisa funcionar. Se alguém tiver um exemplo eu agradeço muito....
Grata!!!
OPS: a maneira q estou tentando achei no site: http://www.macoratti.net/email_vb.htm
Protected Sub send()
Dim objNovoEmail As New MailMessage
Dim objSmtp As New SmtpClient
[ô]Adicionando o e-mail do remetente
objNovoEmail.From = New MailAddress(TRemetente.Text)
[ô]Adicionando o e-mail do destinatário
objNovoEmail.To.Add(New MailAddress(TDestinatario.Text))
[ô]Adiciona a prioridade do e-mail
objNovoEmail.Priority = MailPriority.High
[ô]Adicionando o assunto ao atributo assunto
objNovoEmail.Subject = TAssunto.Text
[ô]Formato de e-mail em Html?
objNovoEmail.IsBodyHtml = True
[ô]Inserir o corpo da mensagem no atributo Body
objNovoEmail.Body = TMensagem.Text
[ô]Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
[ô]Adicionando os campos dos atributos da configuração do e-mail
[ô]parametros necessários para envio de e-mail.
[ô]Configuração do IP do servidor SMTP
[ô]Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
objSmtp.Host = TServidor.Text
objSmtp.Port = TPorta.Text
[ô]Caso queira definir um tempo do timeout
[ô]objSmtp.Timeout = 10
[ô]Define se deve usar autenticação ou não
If TUsuario.Text <> String.Empty And TSenha.Text <> String.Empty Then
objSmtp.Credentials = New System.Net.NetworkCredential(TUsuario.Text, TSenha.Text)
End If
If TUsuario.Text = String.Empty Then
objSmtp.UseDefaultCredentials = False
End If
[ô]Habilitar SSL ou não?
objSmtp.EnableSsl = CCSsl.CheckState
[ô]Enviando a mensagem por e-mail
Try
objSmtp.Send(objNovoEmail)
Catch ex As Exception
Throw ex
Finally
objNovoEmail.Dispose()
End Try
objNovoEmail.Dispose()
End Sub
Qualquer duvida a mais add msn suporte.intech@gmail.com
Dim objNovoEmail As New MailMessage
Dim objSmtp As New SmtpClient
[ô]Adicionando o e-mail do remetente
objNovoEmail.From = New MailAddress(TRemetente.Text)
[ô]Adicionando o e-mail do destinatário
objNovoEmail.To.Add(New MailAddress(TDestinatario.Text))
[ô]Adiciona a prioridade do e-mail
objNovoEmail.Priority = MailPriority.High
[ô]Adicionando o assunto ao atributo assunto
objNovoEmail.Subject = TAssunto.Text
[ô]Formato de e-mail em Html?
objNovoEmail.IsBodyHtml = True
[ô]Inserir o corpo da mensagem no atributo Body
objNovoEmail.Body = TMensagem.Text
[ô]Configuração de tipagem da linguagem, para não aparecer caracteres estranhos na mensagem
objNovoEmail.SubjectEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
objNovoEmail.BodyEncoding = System.Text.Encoding.GetEncoding([Ô]ISO-8859-1[Ô])
[ô]Adicionando os campos dos atributos da configuração do e-mail
[ô]parametros necessários para envio de e-mail.
[ô]Configuração do IP do servidor SMTP
[ô]Por exemplo: smtp.mail.yahoo.com.br (EXEMPLO)
objSmtp.Host = TServidor.Text
objSmtp.Port = TPorta.Text
[ô]Caso queira definir um tempo do timeout
[ô]objSmtp.Timeout = 10
[ô]Define se deve usar autenticação ou não
If TUsuario.Text <> String.Empty And TSenha.Text <> String.Empty Then
objSmtp.Credentials = New System.Net.NetworkCredential(TUsuario.Text, TSenha.Text)
End If
If TUsuario.Text = String.Empty Then
objSmtp.UseDefaultCredentials = False
End If
[ô]Habilitar SSL ou não?
objSmtp.EnableSsl = CCSsl.CheckState
[ô]Enviando a mensagem por e-mail
Try
objSmtp.Send(objNovoEmail)
Catch ex As Exception
Throw ex
Finally
objNovoEmail.Dispose()
End Try
objNovoEmail.Dispose()
End Sub
Qualquer duvida a mais add msn suporte.intech@gmail.com
Olá pessoal mais uma vez boa tarde e obrigada pelas dicas...
Não consegui fazer como o JULIANOPAN me indicou, mas funçando um pouco mais na net encontrei esse tutorial http://www.macoratti.net/vb_email.htm, onde a conexão é feita por Winsock, parece mais facil... tentei montar o exemplo, para enteder o codigo dps atadpatar para meu projeto, mas ta dando o seguinte erro: compile erro: argument not opcional, a linha q aponta o erro é: Conexao = True.
tentei anexar o exemplo q musei mas não consegui , se alguem poder me ajudar, ou souber de outra forma de fazer isso, agradeço muito.......
Grata
Não consegui fazer como o JULIANOPAN me indicou, mas funçando um pouco mais na net encontrei esse tutorial http://www.macoratti.net/vb_email.htm, onde a conexão é feita por Winsock, parece mais facil... tentei montar o exemplo, para enteder o codigo dps atadpatar para meu projeto, mas ta dando o seguinte erro: compile erro: argument not opcional, a linha q aponta o erro é: Conexao = True.
tentei anexar o exemplo q musei mas não consegui , se alguem poder me ajudar, ou souber de outra forma de fazer isso, agradeço muito.......
Grata
Com o winsock,aparentemente nao é mais possivel mandar email,estou acompanhando um topico com ALVAROVB2009 e ele tambem nao conseguiu e nem encontramos algo na net..
Sendo assim,
Por favor,acompanhe esta thread
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775&varWorld=
la tem uma DLL minha que envia email,tem como usar la..
Caso haja alguma duvida em relação à minha DLL,por favor deixe um post na thread/topico citada acima!
Abraços
Sendo assim,
Por favor,acompanhe esta thread
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775&varWorld=
la tem uma DLL minha que envia email,tem como usar la..
Caso haja alguma duvida em relação à minha DLL,por favor deixe um post na thread/topico citada acima!
Abraços
ANABON0106 acabei de encerrar o meu tópico e a DLL do PHOENIX209E foi a solução, pq realmente foi um parto para arrumar o que eu estava precisando e essa dll que ele mandou foi 100%, o primeiro teste que mandei do meu cliente passou direto, agora o cliente já vai começar a trabalhar e essa dll é bem simples, é td em 5 linhas.
Segue abaixo como eu coloquei
o RsParametros é minha tabela, deixei assim, para vc ver o nome das posições
Dim Envia As New ENVIA_EMAIL.ENVIA_EMAIL
Dim Erro As String
If (Envia.fn_envia(RsParametros!usuarioautenticacao, [Ô]Pedido de Compra[Ô], TxtObs.Text, RsParametros!Senha, RsParametros!PortaSmtpSsl, RsParametros!servidorsmtp, 1, TxtPedidoPara.Text, Erro, App.Path & [Ô]\pedido.pdf[Ô])) Then
MsgBox ([Ô]Enviado![Ô])
Else
MsgBox ([Ô]Erro: [Ô] & Erro)
End If
Segue abaixo como eu coloquei
o RsParametros é minha tabela, deixei assim, para vc ver o nome das posições
Dim Envia As New ENVIA_EMAIL.ENVIA_EMAIL
Dim Erro As String
If (Envia.fn_envia(RsParametros!usuarioautenticacao, [Ô]Pedido de Compra[Ô], TxtObs.Text, RsParametros!Senha, RsParametros!PortaSmtpSsl, RsParametros!servidorsmtp, 1, TxtPedidoPara.Text, Erro, App.Path & [Ô]\pedido.pdf[Ô])) Then
MsgBox ([Ô]Enviado![Ô])
Else
MsgBox ([Ô]Erro: [Ô] & Erro)
End If
Fiz esse exemplo já á uns tempos, vê se te ajuda pro que pretendes http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8415
Ohhh garoto!! que bom que funcionou!!! caso voce precise que implemente algo mais,só falar que eu recompilo a DLL!...
Entrarei em contato sim,assim que eu chegar em casa eu adicionarei voce no meu msn!
ANABON(...) funciona mesmo só seguir a thread que eu sitei no post acima
Abraços!
Entrarei em contato sim,assim que eu chegar em casa eu adicionarei voce no meu msn!
ANABON(...) funciona mesmo só seguir a thread que eu sitei no post acima
Abraços!
PHOENIX209E e ALVAROVB2009 obrigada pela dica fiz como vc me disserão, meu codigo fico assim: Dim envia As New ENVIA_EMAIL.ENVIA_EMAIL
Dim Erro As String
If (envia.fn_envia([Ô]txtpara.text[Ô], [Ô]Teste[Ô], [Ô]Mensagem . . . Ola!![Ô], [Ô]txtsenha.text[Ô], [Ô]587[Ô], [Ô]smtp.gmail.com[Ô], 1, [Ô]txtemail.text[Ô], Erro)) Then
MsgBox ([Ô]Enviado![Ô])
Else
MsgBox ([Ô]Erro: [Ô] & Erro)
End If adptei so para testas se ia dar certo e ta dando o seguinte erro:
Run-Time error [ô]429[ô]:
activex component can[ô]t create object
Dim Erro As String
If (envia.fn_envia([Ô]txtpara.text[Ô], [Ô]Teste[Ô], [Ô]Mensagem . . . Ola!![Ô], [Ô]txtsenha.text[Ô], [Ô]587[Ô], [Ô]smtp.gmail.com[Ô], 1, [Ô]txtemail.text[Ô], Erro)) Then
MsgBox ([Ô]Enviado![Ô])
Else
MsgBox ([Ô]Erro: [Ô] & Erro)
End If adptei so para testas se ia dar certo e ta dando o seguinte erro:
Run-Time error [ô]429[ô]:
activex component can[ô]t create object
Siga exatamente como está no final desta thread http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775&varWorld=
Este erro esta dando porque voce nao registrou o assembly no sistema.
Deve ter no minimo o pacote framework 3.5...
Este erro esta dando porque voce nao registrou o assembly no sistema.
Deve ter no minimo o pacote framework 3.5...
Nova DLL pra enviar email.
FOi atualizado a parte de anexo,que quando voce enviava o objeto ainda continuava na memoria,recompilei,quem quiser,só pegar...
As linhas de codigo sao as mesmas,alterei só comportamento interno!
Abraços
FOi atualizado a parte de anexo,que quando voce enviava o objeto ainda continuava na memoria,recompilei,quem quiser,só pegar...
As linhas de codigo sao as mesmas,alterei só comportamento interno!
Abraços
Tópico encerrado , respostas não são mais permitidas