Lien entre Excel et outlook

Bonjour a tous,

est-il possible de:

• créer une feuille excel, avec des dates d'anniversaires (ca c'est ok)
• faire afficher la date du jour, se réactualisant tous les jours (ca c'est ok)
• créer un alerteur, quand il reste moin de 30j avant l'anniversaire (ca c'est ok)
• ENFIN VOILA LE PROBLEME: faire en sorte au moment où l'alerteur s'active, qu'il envoi un mail outlook????????????

il faudrait donc créer un lien entre excel et outlook... et la j'avoue que je cale un peu...

merci d'avoir pris le temps de lire...

et un immense merci de réfléchir a ce petit probleme

a plush !!!

Salut le forum

RomainCAH comme nouveau membres.

Pour lancer le débat

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                (ByVal hwnd As Long, ByVal lpOperation As String, _
                 ByVal lpFile As String, ByVal lpParameters As String, _
                 ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub SendEMail()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Dim r As Integer, x As Double
    For r = 5 To 28 'data in rows 5-28
      If Cells(r, 7) < 0 Then
'       Get the email address
        Email = Cells(r, 6)

'       Message subject
        Subj = "Retard sur loterie"

'       Compose the message
        Msg = ""
        Msg = Msg & "Bonjour " & Cells(r, 5) & "," & vbCrLf & vbCrLf
        Msg = Msg & "J'ai le plaisir de vous informer que vous cumulez un retard de "

        Msg = Msg & "$" & Abs(Cells(r, 7)) & "." & vbCrLf & vbCrLf
        Msg = Msg & "Albert Einstein" & vbCrLf
        Msg = Msg & "Agent de recouvrement"

'       Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

'       Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A") 'Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
      End If
    Next r
End Sub

Modifier le programme de messagerie par défaut pour Outlook

Pour ce faire, procédez comme suit :

1. . Démarrez Microsoft Internet Explorer.
2. . Dans le menu Outils , cliquez sur Options Internet .
3. . Cliquez sur l'onglet programmes .
4. . Dans la boîte de messagerie , sélectionnez Microsoft Outlook .
5. . Cliquez sur OK .

Mytå

ouwa super, merci beaucoup de ta réponse si rapide....

puis je abuser un peu de toi?

j'aimerais pouvoir modifier certaine chose dans ton programme, je m'y connais un peu en progra, mais commme je ne connais pas du tout ce code, pourrais tu m'expliquer chaque partie a quoi elle correspond?

merci d'avance si ce ne te gène pas trop :$