Como puedo enviar un archivo de 45MB desde visual basic a un correo(gmail)
Publicado por Emiliano (3 intervenciones) el 18/05/2021 23:44:38
Buenas a todos!!!
Mi problema se genera basicamente porque el archivo es demasiado pesado para enviar a un email.
El codigo funciona perfectamente con archivos txt o imagenes, pero cuando quiero enviar un archivo mas pesado en este caso es un backup me deja el siguient error
exceeded storage allocation. The server response was 5.2.3. Your message exceeded google´s message size limit
Mi problema se genera basicamente porque el archivo es demasiado pesado para enviar a un email.
El codigo funciona perfectamente con archivos txt o imagenes, pero cuando quiero enviar un archivo mas pesado en este caso es un backup me deja el siguient error
exceeded storage allocation. The server response was 5.2.3. Your message exceeded google´s message size limit
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Try
correos.To.Clear()
correos.Body = ""
correos.Subject = ""
correos.Body = ""
correos.Subject = "Backup"
correos.IsBodyHtml = True
correos.To.Add(Trim("[email protected].com"))
Dim ruta As String = "C:\backup\2021518155224.sql"
Dim emisor As String = "[email protected]l.com"
Dim password As String = "*****"
If ruta <> "" Then
Dim archivo As Net.Mail.Attachment = New Net.Mail.Attachment(ruta)
correos.Attachments.Add(archivo)
End If
correos.From = New MailAddress(emisor)
envios.Credentials = New NetworkCredential(emisor, password)
'Datos importantes no modificables para tener acceso a las cuentasenvios.Host = "smtp.gmail.com"
envios.Port = 587
envios.EnableSsl = True
'envios.Timeout = 10000envios.Timeout = 5000000
envios.Send(correos)
Console.WriteLine("El backup fue enviado correctamente. ")
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
Valora esta pregunta
0