Jump to content

[Resolvido] Problema enviar anexos por email


Andrepereira9
 Share

Recommended Posts

Boa Tarde

O Vb.net, tem algum limite de tamanho em relação aos anexos dos emails?

Tenho uma aplicação para enviar emails, e se anexar um ficheiro .zip com menos de 1 Megabyte, ele envia. Se tiver mais de 1 Megabyte, ele indica que foi enviado, mas não envia nada.

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

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

Link to comment
Share on other sites

Faço-te a outra pergunta:

A caixa destino aceita as condições impostas?

O servidor de envio aceita as condições impostas?

Não conheço qualquer limite imposto por a classe Net.Mail ou Web.Mail, senão o próprio servidor de envio/recepção, mas não posso dizer com toda a certeza que não o tenha.

Utiliza a Net.Mail. Tenho a impressão de que Web.Mail está "deprecated".

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Afinal, ainda não resolvi.

Tenho o seguinte código

   Dim mail As New MailMessage

            Dim Para As String = "***"

            Dim SmtpServer As New SmtpClient()
            SmtpServer.Credentials = New Net.NetworkCredential("****", "****")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.gmail.com"
            SmtpServer.EnableSsl = True

            mail = New MailMessage()
            Dim addr() As String = Para.Split(",")
            Try
                mail.From = New MailAddress("****", "", System.Text.Encoding.UTF8)

                Dim i As Byte
                For i = 0 To addr.Length - 1
                    mail.To.Add(addr(i))
                Next
                mail.Subject = "Ficheiro Teste"

                If My.Computer.FileSystem.FileExists("C:\Teste.rar") Then
                    mail.Body = "Ficheiro"
                    mail.Attachments.Add(New Attachment("C:\Teste.rar"))
                Else
                    mail.Body = "Não existe nenhum Ficheiro"
                End If

                mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
                SmtpServer.Send(mail)
                mail.Attachments.Clear()

            Catch ex As Exception
            Finally
                WriteLine("Enviado com Sucesso!!!")
            End Try
        Next

Se o ficheiro tiver menos de 1 mega, envia-me o ficheiro, mas se tiver mais de um mega, começa a fazer o upload do ficheiro, e quando chega a um mega de upload, diz enviado e não me envia nada.

Alguma ajuda??. Se não der para enviar com mais de 1 mega existe alguma maneira de dividir o ficheiro em partes de 1 mega, automaticamente??

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

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

Link to comment
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
 Share

×
×
  • 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.