Jump to content
dezinh20

Enviar Email via vb.net

Recommended Posts

dezinh20

Eu tenho um codigo de enivar email só que tem um problema o antigo programado não me falou sobre uma coisa e eu preciso saber

Imports System.Net.mail
Imports System.IO

Public Class email

        Public Shared Sub enviaMensagemEmail(ByVal from As String, ByVal recepient As String, ByVal bcc As String, ByVal cc As String, ByVal subject As String, ByVal body As String, ByVal servidorSMTP As String, ByVal anexo As String)
                Try
                        Dim mMailMessage As New MailMessage()

                        mMailMessage.From = New MailAddress(from)

                        mMailMessage.To.Add(New MailAddress(recepient))

                        If Not bcc Is Nothing And bcc <> String.Empty Then
                                mMailMessage.Bcc.Add(New MailAddress(bcc))
                        End If

                        If Not cc Is Nothing And cc <> String.Empty Then
                                mMailMessage.CC.Add(New MailAddress(cc))
                        End If

                        mMailMessage.Subject = subject

                        mMailMessage.Body = body

                        mMailMessage.IsBodyHtml = True

                        mMailMessage.Priority = MailPriority.High

                        If Not anexo Is Nothing Then
                                mMailMessage.Attachments.Add(New Attachment(anexo))
                        End If

                        mMailMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnSuccess

                        Dim mSmtpClient As New SmtpClient(servidorSMTP)
                        Dim status As New System.Net.Mail.SmtpStatusCode

                        mSmtpClient.Send(mMailMessage)

                        mMailMessage = Nothing
                        mSmtpClient = Nothing
                Catch ex As Exception
                        MsgBox(ex)
                Finally
                        File.Delete(anexo)
                End Try

        End Sub
End Class

este é o codigo que segundo o antigo programador funciona

mas gostaria de saber o que é esta parte, tipo o que seria o "recepient" é algum email ou algo do genero ?!

     

    mMailMessage.To.Add(New MailAddress(recepient))

tem como alguem me ajudar?

Share this post


Link to post
Share on other sites
dezinh20

Hnm entendi,

só que quando ele chega no

mSmtpClient.Send(mMailMessage)

da erro e ele sai.... sabe o motivo?

vlw

Share this post


Link to post
Share on other sites
Andrepereira9

Qual é o erro?


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
dezinh20

então ele não mostra nenhum erro ele so entra demora tipow 1 minuto e sai sem informar nada

como faço para saber qual tipo de erro? ( qual o codigo para ele mostrar)

Share this post


Link to post
Share on other sites
Caça

É normal demorar um bocado. Mas não está a enviar o email para o destinatário? O email do destinatário está correctamente definido?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
dezinh20

Form5.enviaMensagemEmail("service@raizermoura.com.br", txtPara.Text, txtcco.Text, "", txtAssunto.Text, txtTexto.Text, "mail.raizermoura.com.br", txtendereco1.Text, txtendereco2.Text)

Descobri uma coisa que deu certo

quando eu não coloco anexo ele envia normalmente =D

mas quando coloco anexo ele não envia....

O que pode ser?

(teste colocando um excel como anexo enviando o caminho do excel ( c:/....) )

Share this post


Link to post
Share on other sites
Caça

Pode ser pelo tamanho do ficheiro. Ao enviar ele tem de fazer o upload, dai demorar tempo


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Está alguma coisa a bloquear o anexo, provavelmente no servidor


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.