Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Outlook Discussion :

Gérer l'envoi d'un email


Sujet :

Outlook

  1. #1
    Futur Membre du Club
    Gérer l'envoi d'un email
    Bonjour à tous,

    je débute sur les addins Microsoft et j'aimerai réaliser ce petit projet : lorsqu'un utilisateur appuie sur le bouton "Envoyer" de son email créé j'aimerai gérer cette envoi c'est à dire que sous certaines conditions l'email est soit envoyé tout de suite soit il est placé dans l'Outbox pour être envoyé plus tard (+1 jour par exemple). Pour gérer les conditions j'aimerai ouvrir une Form où l'utilisateur pourra choisir des options.

    J'ai surchargé l'event ApplicationEvents_11_ItemSendEventHandler, je passe bien dedans, j'arrive à appliquer mes conditions mais je n'arrive pas à fermer la fenêtre courante et déplacer l'email dans l'Outbox.

    Est-ce que déjà cela vous semble compliqué ? Est-ce que c'est le bon event que j'ai utilisé ?

    Merci pour votre aide

  2. #2
    Expert éminent
    Bonjour,

    Avec quoi tu codes ?

    Voici un exemple en VBA, en fait il faut l'envoyer avec un délais

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
        If Not item.Class = olMail Then GoTo Fin
     
        If InStr(1, item.Subject, "PUBLIPOSTAGE", vbTextCompare) > 0 Then
            On Error Resume Next
            item.DeferredDeliveryTime = DateAdd("n", Minutes, Now)
            Minutes = Minutes + 1
            'On supprime le terme PUBLIPOSTAGE du sujet
            item.Subject = Replace(item.Subject, _
                    "PUBLIPOSTAGE", "")
     
            'On sauvegarde le mail
            item.Save
        End If
     
    Fin:
     
    End Sub

###raw>template_hook.ano_emploi###