Como enviar varios archivos en 1 e-mail
Publicado por yerotos (3 intervenciones) el 06/05/2005 12:04:58
En un programa quiero enviar todos los archivosque hay en un directorio con la extensión .dup en un solo e-mail y no me funciona poniendo *.dup Tengo el siguiente código :
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "[email protected]"
.Subject = "Ficheros DUP"
.Body = "Adjuntamos ficherosDUP"
End With
myOLItem.Attachments.Add ("\\Esvwnapac88895\FMMOVI\*.dup")
myOLItem.Send
Alguien me puede ayudar?
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "[email protected]"
.Subject = "Ficheros DUP"
.Body = "Adjuntamos ficherosDUP"
End With
myOLItem.Attachments.Add ("\\Esvwnapac88895\FMMOVI\*.dup")
myOLItem.Send
Alguien me puede ayudar?
Valora esta pregunta
0