[Outlook 2003] Generer une copie d'un mail

Question

Bonjour,

Je vais tenter d'etre le plus clair possible.
Je travail dans une societé et j'ai plusieurs boites mail a gerer.
Sur bon nombre de boites mails, je n'envoi pas de mails en mon nom propre mais au nom de la boite.
Le probleme est qu'outlook lui m'enregistre le mail dans mes "elements envoyés".
Je souhaiterai donc que dans le cas ou j'envoi depuis "Fr, boite1" que le mail soit aussi copié dans "elements envoyés" de boite1.
Ainsi une autre personne s'occupant de la boite pourra avoir un suivi des mails envoyer depuis cette boite.

J'ai fait quelques recherches et ai essayer de modifier un code generique permetant de choisir ou enregistrer un mail aprés chaque envoi mais ca ne fonctionne pas vraiment.
Ci-joint ce que j'ai essayer de faire ( Ne vous moquez pas, c'est la premiere fois que je met les mains dans le VBA... et je ne suis pas programmeur )


Code :
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
 
    Dim monMail As MailItem
    Set monMail = Item
    If Not monMail.SenderEmailAddress = "boite1.fr@domaine.com" Then GoTo fin
    If monMail.SenderEmailAddress = "boite1.fr@domaine.com" Then GoTo arf
arf:
'By Oliv' 9/02/2007 pour Outlook 2003
If Not Item.Class = olMail Then GoTo fin
 
    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder
 
            Set objNS = Application.GetNamespace("MAPI")
            Set objFolder = objNS.PickFolder
            If TypeName(objFolder) = "Nothing" Then
                Set objNS = Application.GetNamespace("MAPI")
                Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)
            End If
        Set Item.SaveSentMessageFolder = objFolder
fin:
End Sub

 Quelques infos :
Ce qui est invariable s'est donc le nom, ou l'adresse de la boite.
Les sujet et/ou destinataires changent
J'ai reussi a faire fonctionner cette macro avec "monEmail.Subject = test"
Le probleme reste qu'il faut choisir le dossier alors que je souhaiterai automatisé l'enregistrement dans le dossier "Element envoyé" de la boite avec laquelle j'envoi.

Merci pour votre aide.

oversid3 · Answer

Aie c'est illisible... je créé un doublon pour rectifié ca :

Bonjour,

Je vais tenter d'etre le plus clair possible.

Je travail dans une societé et j'ai plusieurs boites mail a gerer.

Sur bon nombre de boites mails, je n'envoi pas de mails en mon nom propre mais au nom de la boite.

Le probleme est qu'outlook lui m'enregistre le mail dans mes "elements envoyés".
Je souhaiterai donc que dans le cas ou j'envoi depuis "Fr, boite1" que le mail soit aussi copié dans "elements envoyés" de boite1.

Ainsi une autre personne s'occupant de la boite pourra avoir un suivi des mails envoyer depuis cette boite.


J'ai fait quelques recherches et ai essayer de modifier un code generique permetant de choisir ou enregistrer un mail aprés chaque envoi mais ca ne fonctionne pas vraiment.

Ci-joint ce que j'ai essayer de faire ( Ne vous moquez pas, c'est la premiere fois que je met les mains dans le VBA... et je ne suis pas programmeur )



Code :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)


 
    Dim monMail As MailItem

    Set monMail = Item

    If Not monMail.SenderEmailAddress = "boite1.fr@domaine.com" Then GoTo fin

    If monMail.SenderEmailAddress = "boite1.fr@domaine.com" Then GoTo arf

arf:

'By Oliv' 9/02/2007 pour Outlook 2003

If Not Item.Class = olMail Then GoTo fin

 
    Dim objNS As NameSpace

    Dim objFolder As MAPIFolder

 
            Set objNS = Application.GetNamespace("MAPI")

            Set objFolder = objNS.PickFolder

            If TypeName(objFolder) = "Nothing" Then

                Set objNS = Application.GetNamespace("MAPI")

                Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)

            End If

        Set Item.SaveSentMessageFolder = objFolder

fin:

End Sub

 Quelques infos :

Ce qui est invariable s'est donc le nom, ou l'adresse de la boite.

Les sujet et/ou destinataires changent

J'ai reussi a faire fonctionner cette macro avec "monEmail.Subject = test"

Le probleme reste qu'il faut choisir le dossier alors que je souhaiterai automatisé l'enregistrement dans le dossier "Element envoyé" de la boite avec laquelle j'envoi.


Merci pour votre aide.

[Outlook 2003] Generer une copie d'un mail

1 réponse

Votre réponse

Discussions similaires