Information générale
Catégorie:
Codage, syntaxe et commandes
Try this:
with loNewOrders
for ib=1 to .Items.count
for iatt=1 to .items(ib).Attachments.Count
*?space(5),.items(ib).Attachments(iatt).Readattachment.Type,;
space(2), .items(ib).Attachments(iatt).Readattachment.DisplayName, ;
space(2),.items(ib).Attachments(iatt).Readattachment.FileNAme
.items(ib).Attachments(iatt).Saveasfile("c:\"+.items(ib).Attachments(iatt).Readattachment.FileNAme)
endfor
endfor
.....
>Hi,
>
>I am having some problems saving an email attachment programatically. This is the code I have so far:
>
>Public poOutlook as Outlook.Application,;
> poNamespace as Outlook.Namespace
>
>Local lcMailBox, lcNewOrdersFolder
>lcMailBox = "Mailbox - Einar Kvandahl"
>lcNewOrdersFolder = "New Orders"
>
>poOutlook = CreateObject("Outlook.Application")
>poNamespace = poOutlook.GetNamespace("MAPI")
>
>loNewOrders = poNamespace.Folders(lcMailBox).Folders(lcNewOrdersFolder)
>
>
>For each item in loNewOrders.Items
> * Attachment code here
>Next item
>
>Release poOutlook, poNamespace
>
>Could anybody help me with the code I need to put where it says "Attachment code here"?
>
>Thanks,
>Einar
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement