RÉCUPÉRÉ AUTOMITIQUEMENT UNE PIÈCE JOINTE D'UN E-MAIL SOUS OUTLOOK
cs_Billou
Messages postés34Date d'inscriptionsamedi 9 février 2002StatutMembreDernière intervention27 août 2007
-
23 mars 2002 à 13:13
raphcout
Messages postés1Date d'inscriptionmardi 27 juin 2006StatutMembreDernière intervention 9 juillet 2009
-
9 juil. 2009 à 16:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
raphcout
Messages postés1Date d'inscriptionmardi 27 juin 2006StatutMembreDernière intervention 9 juillet 2009 9 juil. 2009 à 16:51
bonjour,
remplace 1 par -1 sur For i_mess = -1 To nb_messages
kopeltar
Messages postés4Date d'inscriptionvendredi 14 mars 2003StatutMembreDernière intervention24 décembre 2004 24 déc. 2004 à 15:39
Bonjour,
J'ai vu que tu as posté des messages à propos de outlook, donc j'ai pensé que tu pourrais m'aider,
Je t'expose mon pb, je veux stocker les pièces jointes des nouveaux mails ds un répertoire sur mon disque, et pour cela j'utilise au début le code ci-dessous, mais le pb c que myFolder.Items.Count crenvoie toujours 0 même si je reçois de nouveaux messages . D'avance merci pour ton aide,
Set myOlApp = New Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
nb_messages = myFolder.Items.Count
For i_mess = 1 To nb_messages
.......
cs_jenial
Messages postés10Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention23 juillet 2004 26 sept. 2004 à 18:30
trop bon...
XLMbinny
Messages postés1Date d'inscriptionmardi 22 juin 2004StatutMembreDernière intervention22 juin 2004 22 juin 2004 à 08:54
C idem chez moi. Ce code me serait vraiement utile, d'ailleurs c'est en je cherchant cette action que j'ai découvert ce site. Mais ca ne fonctionne pas non plus ici.
Si certain ont des infos sur ce code,
Merci à vous !!
cs_OLLIVIER
Messages postés6Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention30 juin 2003 30 juin 2003 à 11:46
(olFolderInbox) represente quel folder.
le but de ton code m'interresse mais cela ne fonctionne pas chez moi
as tu un exemple complet
merci d'avance
cs_Como
Messages postés10Date d'inscriptionmardi 7 janvier 2003StatutMembreDernière intervention 5 mai 2003 19 févr. 2003 à 16:37
Pourrais-tu commenter ton code s'il te plait ?
MSteve52
Messages postés1Date d'inscriptionvendredi 5 juillet 2002StatutMembreDernière intervention 5 juillet 2002 5 juil. 2002 à 20:50
pourquoimyAttachments.Item(i).SaveAsFile ...
déclenche-t-il l'appartion d'une boîte de dialogue m'indiquant que je n'ia pas les droits pour faire cela.
Merci
cs_Billou
Messages postés34Date d'inscriptionsamedi 9 février 2002StatutMembreDernière intervention27 août 2007 23 mars 2002 à 13:13
9 juil. 2009 à 16:51
remplace 1 par -1 sur For i_mess = -1 To nb_messages
24 déc. 2004 à 15:39
J'ai vu que tu as posté des messages à propos de outlook, donc j'ai pensé que tu pourrais m'aider,
Je t'expose mon pb, je veux stocker les pièces jointes des nouveaux mails ds un répertoire sur mon disque, et pour cela j'utilise au début le code ci-dessous, mais le pb c que myFolder.Items.Count crenvoie toujours 0 même si je reçois de nouveaux messages . D'avance merci pour ton aide,
Set myOlApp = New Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
nb_messages = myFolder.Items.Count
For i_mess = 1 To nb_messages
.......
26 sept. 2004 à 18:30
22 juin 2004 à 08:54
Si certain ont des infos sur ce code,
Merci à vous !!
30 juin 2003 à 11:46
le but de ton code m'interresse mais cela ne fonctionne pas chez moi
as tu un exemple complet
merci d'avance
19 févr. 2003 à 16:37
5 juil. 2002 à 20:50
déclenche-t-il l'appartion d'une boîte de dialogue m'indiquant que je n'ia pas les droits pour faire cela.
Merci
23 mars 2002 à 13:13
a+