[outlook] automatisation des taches
Résolu
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
-
16 août 2005 à 11:28
stevo77 Messages postés 43 Date d'inscription lundi 14 juin 2004 Statut Membre Dernière intervention 17 juillet 2007 - 25 août 2005 à 15:14
stevo77 Messages postés 43 Date d'inscription lundi 14 juin 2004 Statut Membre Dernière intervention 17 juillet 2007 - 25 août 2005 à 15:14
A voir également:
- L'application automation est occupée sage
- Activer macro outlook - Forum Visual Basic
- Les macros sur Outlook ne fonctionnent plus et ne sont plus accessibles ! - Forum VBA Office (Excel, Word ...)
- Ouverture d'un formulaire outlook par macro - Forum VBA Office (Excel, Word ...)
- Info outlook - Forum Visual Basic
- Automatiser tâches répétitives - Forum VB.NET
6 réponses
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
25 août 2005 à 15:14
25 août 2005 à 15:14
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
17 août 2005 à 15:14
17 août 2005 à 15:14
Ca avace, j'ai déjà trouvé comment créer une
macro qui s'execute automatiquement a la reception ou a l'envoi d'un
message. Il me faut encore faire la recuperation du contenue pour
l'archivage.
Option Explicit
Private WithEvents olInboxItems As Items
Private WithEvents olSentMailItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set olSentMailItems = objNS.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub Application_Quit()
Set olInboxItems = Nothing
Set olSentMailItems = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
'action lors de la reception d'un nouveau message
End Sub
Private Sub olSentMailItems_ItemAdd(ByVal Item As Object)
'action lors de l'envoi d'un nouveau message
End Sub
macro qui s'execute automatiquement a la reception ou a l'envoi d'un
message. Il me faut encore faire la recuperation du contenue pour
l'archivage.
Option Explicit
Private WithEvents olInboxItems As Items
Private WithEvents olSentMailItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set olSentMailItems = objNS.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub Application_Quit()
Set olInboxItems = Nothing
Set olSentMailItems = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
'action lors de la reception d'un nouveau message
End Sub
Private Sub olSentMailItems_ItemAdd(ByVal Item As Object)
'action lors de l'envoi d'un nouveau message
End Sub
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
18 août 2005 à 11:55
18 août 2005 à 11:55
UP!
Une petite question, comment es ce qu'on recupère le nom de l'expéditeur sur l'objet mail lors de la reception?
un exemple pour eclaircir les choses:
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
'action lors de la reception d'un nouveau message
MsgBox Item.Body 'Item.Body contient le coprs du message
MsgBox Item.To 'Item.To contient mon adresse
'commment recuperer l'adresse de l'expediteur
End Sub
Merci d'avance.
Une petite question, comment es ce qu'on recupère le nom de l'expéditeur sur l'objet mail lors de la reception?
un exemple pour eclaircir les choses:
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
'action lors de la reception d'un nouveau message
MsgBox Item.Body 'Item.Body contient le coprs du message
MsgBox Item.To 'Item.To contient mon adresse
'commment recuperer l'adresse de l'expediteur
End Sub
Merci d'avance.
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
18 août 2005 à 12:36
18 août 2005 à 12:36
Bon j'ai trouvé cette attribut, c'est SenderName, ce qui donne Item.SenderName
voila, je le met quand meme ca peut servir.
voila, je le met quand meme ca peut servir.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
19 août 2005 à 14:34
19 août 2005 à 14:34
Correction, SenderName ne donne que le nom pour faire joli (genre Paul MARTIN), c'est SenderEmailAddress pour avoir l'email.
stevo77
Messages postés
43
Date d'inscription
lundi 14 juin 2004
Statut
Membre
Dernière intervention
17 juillet 2007
23 août 2005 à 12:17
23 août 2005 à 12:17
J'ai presque fini, mais j'ai encore un probleme, j'ai reussi a
supprimer l'alerte sous outlook lors de l'execution des macro (bon
c'etait pas tres dur, j'ai juste baissé les niveaux de sécurité, mais
ca reste assez chiant d'avoir recours a cette methode), maintenant mon
probleme c'est d'empecher l'affichage de la fenetre de confirmation
d'ouverture de bdd access (oui j'ai une bdd access, j'y associe des
email, qui ne sont pas forcement dans la liste de contacte de
l'utilisateur, au dossier/affaire a auquel il se rapport), si quelqu'un
a une solution parceque je ne suis pas sur que les utilisateurs soient
content de voir access s'ouvrire a chaque mail recu.
Sinon pour la source final, je suis desolé mais je ne pourrais la
publier, en effet, il s'agit d'un programme que je fait en bonus pour
l'entrerpise pour laquel je suis en stage, donc la source lui
appartient. Mais si vous avez des question, vous pouvez toujours les
poster ou me mailler (voir ma fiche), je tacherais d'y repondre du
mieux possible (c'est quand meme mon premier prog vba donc je garantie
pas la reponse).
supprimer l'alerte sous outlook lors de l'execution des macro (bon
c'etait pas tres dur, j'ai juste baissé les niveaux de sécurité, mais
ca reste assez chiant d'avoir recours a cette methode), maintenant mon
probleme c'est d'empecher l'affichage de la fenetre de confirmation
d'ouverture de bdd access (oui j'ai une bdd access, j'y associe des
email, qui ne sont pas forcement dans la liste de contacte de
l'utilisateur, au dossier/affaire a auquel il se rapport), si quelqu'un
a une solution parceque je ne suis pas sur que les utilisateurs soient
content de voir access s'ouvrire a chaque mail recu.
Sinon pour la source final, je suis desolé mais je ne pourrais la
publier, en effet, il s'agit d'un programme que je fait en bonus pour
l'entrerpise pour laquel je suis en stage, donc la source lui
appartient. Mais si vous avez des question, vous pouvez toujours les
poster ou me mailler (voir ma fiche), je tacherais d'y repondre du
mieux possible (c'est quand meme mon premier prog vba donc je garantie
pas la reponse).
