Modifier macro

Bonjour, comment allez-vous ?

Voilà j’explique j’ai un tableau Excel (en pièce jointe) pour envoyer des mails. Mais dans le mail que je reçois je voudrais voir apparaitre dans le mail le contenu de la case « commentaires ». Si vous pouviez modifier la macro car comme vous l’aurez deviné je suis une buse en macro.

Bonne journée.

Bonjour,

à tester,

Sub EnvoiMail(Sujet As String, Deadline As Date, MailDest As String, commentaire)
Dim OutlookApp As Object, OutlookMail As Object
        On Error Resume Next
        Set OutlookApp = GetObject(, "outlook.application")
        Do While OutlookApp Is Nothing
            MsgBox "Veuillez ouvrir Outlook puis cliquer sur Ok"
            Set OutlookApp = GetObject(, "outlook.application")
        Loop
        On Error GoTo 0
        Set OutlookMail = OutlookApp.CreateItem(0)
        With OutlookMail
            .Subject = Sujet
            .To = MailDest
            .Body = "Bonjour," & Chr(10) & Chr(10) & _
            "la deadline pour la tache qui est en objet de ce mail est le " & Format(Deadline, "dd/mm/yyyy") & Chr(10) & _
            "Controler ou executer cette tache: " & commentaire
            .display
'            .Send
        End With
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
End Sub

Sub VerifEnvois()
Dim i As Long
    With ThisWorkbook.Worksheets("TABLEAU TACHES-CONTROL")
        For i = 5 To .Range("B" & .Rows.Count).End(xlUp).Row
            If CDate(.Range("G" & i).Value) <= Date And CDbl(.Range("F" & i).Value) < 1 And .Range("J" & i).Value <> "x" Then
'                .Range("J" & i).Value = "x"
                EnvoiMail "Tâche " & .Range("B" & i).Value, CDate(.Range("E" & i).Value), .Range("C" & i).Value, .Range("I" & i).Value
            End If
        Next i
    End With
End Sub

Bonjour,

Merci donc oui j’ai bien le commentaire dans le mail mais il n’y a plus l’envoi des mails en auto sniff.

Dans le fichier original si j’ai 50 dates d’alerte Excel envoi les 50 mails tous seul sans rien faire à l’ouverture du fichier Excel. Ps : c’est marrant si tu veux blinder la boite mail de ton collègue.

Pour moi le top c’est de garder le ficher tel qu’il est à l’exception de l’ajout des commentaires en plus.

Merci pour ton intervention.

re,

            .display
'            .Send

remet .Send actif ( enlève la quote devant)

met une quote devant .display

Bonjour,

Je dois quitter du bureau j’y regarde mardi.

Merci

Bon week-end de pâques

Bonjour i20100,

Alors comme expliqué ci-dessus je suis une buse en vba mais avec ton aide j y suis arrivé alors grand merci à toi.

Que la force soit avec toi.