Enviar archivos por e-mail
Publicado por YEROTOS (16 intervenciones) el 06/05/2005 12:03:22
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