Message d'alerte sur OUTLOOK

Question

Je suis à la recherche d'une macro pouvant répondre à mon besoin. J'ai créer un tableau de gestion des produits chimiques sur un site industriel avec leur date de réception, leur date de fabrication et leur date d’expiration. je souhaiterais envoyer une alerte automatique sur OUTLOUK dès qu’un des produits arrive à expiration. J'utilise Outlook 2007/Excel 2007 Je souhaiterais envoyer un mail du type : Objet : Produit périmé Corps du message : Bonjour, La date du produit chimique XXXX (voir colonne B) est arrivée à expiration (date en colonne L) Merci de faire les vérifications nécessaires afin de le mettre en zone de quarantaine en attendant son élimination par une structure agrée. Cordialement Je débute en VBA, mais je veux apprendre... Merci d'avance pour votre aide...

GVIALLES · Answer

Lendoss2pac,

Pour l'envoi de mails depuis EXCEL, dans VBA, il faut référencer l'objet "Microsoft Outlook xx" un squelette de fonction VBA :

Sub SendMail_Mainprocess()
    Dim oMail As Outlook.MailItem
    Dim oAttachments As Outlook.Attachments
    Dim oRcpts As Outlook.Recipients
    Dim oRcpt As Outlook.Recipient
    Dim sDetail As String
    Dim aAttachments() As String, sAttachment As String
    Dim i As Long

    'Envoi Mail
    Set oMail = oOL.CreateItem(olMailItem)
    With oMail
        .To = "Le(s) destinataire(s)"
        .Subject = "L'objet du mail"
        .Body = "Le texte du mail"
        .Importance = olImportanceHigh 'High importance
        .Send
    End With
    Set oMail = Nothing

End Sub

Pour que ça fonctionne, une session OUTLOOK doit être en exécution sur le poste de travail. On peut s'en assurer au moyen de cette fonction :

Public Function IsOUTLOOK_OK() As Boolean
    Dim oOUTLOOK As Object

    IsOUTLOOK_OK = True
    On Error Resume Next
    Set oOUTLOOK = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If oOUTLOOK Is Nothing Then
        MsgBox "OUTLOOK n'est pas en exécution!", vbCritical, "CONTROLE OUTLOOK ACTIF"
        IsOUTLOOK_OK = False
    End If

    Set oOUTLOOK = Nothing
End Function