• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

gregurs

Enviar emails no vb 2008

20 mensagens neste tópico

boas pessoal arranjei este código para enviar emails, mas ele diz que smtpmail is not declared.

este é o código

        Dim server As String
        Dim mailto As String
        Dim mailfrom As String
        Dim subject As String
        Dim msg As String

        server = "mail.clix.pt"
        mailto = "gregurs@gmail.com"
        mailfrom = Txtemail.Text
        subject = "Feedback"
        msg = Txtemail.Text & vbNewLine & Txtmsg.Text

        SmtpMail.SmtpServer = server
        Try
            SmtpMail.Send(mailfrom, mailto, subject, msg)
        Catch ex As Exception
            MsgBox("Did not work")

        End Try

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes usar um SmtpClient em vez de um SmtpMail. Está no System.Net.Mail.

Dim smtp As New System.Net.Mail.SmtpClient()
smtp.host = server
...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao foi testado :S, mas deve funcionar :)

    Public Sub SendMail()
        Dim mailMsg As New System.Net.Mail.MailMessage()
        With mailMsg
            .To.Add("To@mail.com")
            .CC.Add("CC@mail.com")
            .Bcc.Add("BCC@mail.com")
            .Subject = "Assunto"
            .Body = "Corpo da mensagem"

            Try
                Dim client As New System.Net.Mail.SmtpClient("SMTP address") 'smtp.server.com
                client.Port = 25 ' Port de SMTP
                ' no caso de ser necesario identificaçao no smtp
                client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
                client.Credentials = New Net.NetworkCredential("Utilizador", "Password")

                ' envia a mensagem
                client.Send(mailMsg)

                MessageBox.Show("Mensagem enviada!", "Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MessageBox.Show("Ocorreu o seguinte problema ao enviar o mail send your email: " & ex.Message, "Status", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End With
    End Sub

Se diz que o smtpclient não foi declarado, que tal declarar  ou, adicionar referencias ?

imports system.net.mail

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

desculpa mas podes me explicar o que tenho de alterar que eu nao muito bem o código

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

desculpa mas podes me explicar o que tenho de alterar que eu nao percebi muito bem o código

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

desculpa mas podes me explicar o que tenho de alterar que eu nao percebi muito bem o código

Para usares o smtpclient deves dizer ao projecto para ele utilizar uma referencia a system.net.mail

Para isso vais as propriedades do projecto e na parte de referencias adicionas.

Depois no inicio do modulo/classe dizes para importar essas referencias

imports system.net.mail

e ja podes declarar as variavel

Dim client as new smtpclient

Se nao usares o imports tens que declarar a variavel como

Dim client as new system.net.mail.smtclient()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

dá me este erro 

"Ocorreu o seguinte problema ao enviar o mail send email; SMTP server requires a secure connnection or the client was not authenticated. The server response was: 5.7.0 Must issue a STARTTLS command first. 7sm1335650eyg.25"

sabes ressolve-lo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Na tua variável client, tenta usar a propriedade SSL ou parecido para true.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Desculpa lá mas onde é que te estas a autenticar aí no teu codigo???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Try

                Dim client As New System.Net.Mail.SmtpClient("smtp.gmail.com")

                enabledSSL = True

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olha eu disse te que dá erro "enabledssl is not declared". o que te estou a perguntar é o porquê do erro

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não está declared, porque não é uma variável, mas sim uma propriedade: vê a mensagem do Pwyll

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não sei o que é isso do Pwyll mas proprieda de ou nao o programa dá erro e eu não sei resolve-lo se se soubesses como agradecia

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não sei o que é isso do Pwyll mas proprieda de ou nao o programa dá erro e eu não sei resolve-lo se se soubesses como agradecia

OMG...o Pwyll é um user cá do forum xD lê lá o que ele disse, vai ajudar-te a resolver isso...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

A class para mails do .NET não funciona muito bem..

Tentei bastante tempo por a funcionar um modulo de uma aplicação com os objectos do .NET.. mas em sucesso.. acabei por aderir a um componente comercial..

O problema da classe do .NET tem haver com a encriptação (SSL).. que não funciona la muito bem..

"Mande e receba e-mails com VB.NET."

Chilkat Mail.NET - Send Email é um componente .NET para mandar e receber e-mails. Possui capacidade total S/MIME para mandar e receber e-mails assinados e encriptados, MHTML para mandar e-mails em HTML, importação de arquivos do Outlook e arquivos XML, mail merge e mais. Funciona com C#, VB.NET e ASP.NET.

http://www.chilkatsoft.com/

A licença até não é muito cara.. e funciona mesmo bem.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora