Buenos días,
Estoy intentando enviar un email con varios archivos pdf adjuntos y no lo consigo.
El envío con un único archivo adjunto sí es correcto, lo hace bien.
Pero al enviar una lista de varios archivos, únicamente adjunta el último.
El código es este:
dim MailSocket As new SMTPSecureSocket
dim file As new EmailAttachment
dim adjuntos() As EmailAttachment
MailSocket.Address = “smtp.ionos.es”
MailSocket.Port = 587
MailSocket.ConnectionType = SMTPSecureSocket.TLSv12
MailSocket.SMTPConnectionMode = SMTPSecureSocket.ModeSTARTTLS
MailSocket.Secure = True
MailSocket.Username = “email@midominio.com”
MailSocket.Password = “password”
// Create EmailMessage
Dim mail As New EmailMessage
mail.FromAddress = “email@midominio.com”
mail.AddRecipient(direccion)
mail.Subject = asunto
mail.BodyHTML = mensaje
mail.Headers.AppendHeader(“X-Mailer”,“SMTP Test”)
for i as Integer=0 to listaadjuntos.LastRowIndex
file.LoadFromFile(listaadjuntos(i))
adjuntos.AddRow(file)
'mail.Attachments.AddRow(file)
next
mail.Attachments=adjuntos
// Send it
MailSocket.Messages.AddRow(mail)
MailSocket.SendMail
En el debuger, el objeto mail contiene correctamente todos los archivos adjuntos, pero al enviarlo, sólo envía el último.
¿Alguien puede decirme si estoy haciendo algo mal?