mail via outlook

[lolo_bob2]

Bonjour à tous


Voila on me demande de réaliser une petite application excel me permettant d'envoyer des mails via outlook
En fait j'ai une colonne date si la date est inferieure à la date du jour alors un mail est envoyé à la personne affectée à cette date et le message serait: lolo faire l'indicateur maintenance
Le classeur se présente comme suit :
nom | date | action
lolo | 11/06/06 | faire l'indicateur maintenance

Merci de votre aide
je n'y connais rien en programmation...

A+

 

[Mytå]

Salut LoloBob2 et le Forum

Peut-être un début de solution

ici:Lien supprimé

Mytå

P.S. Ta cellule contenant Lolo doit être un lien hypertexte du genre lolo@yahou.fr

 

[lolo_bob2]

Salut

Merci pour ton lien mais ce n'est pas exactement ce systeme qu'il me faudrait en fait je veux que l'envoi soit automatisé si une certaine condition est présente
Si la date est inférieur à la date du jour, le mail est envoyé...

Merci beaucoup

A+

 

[Mytå]

Re Lolo_bob2

Un début de piste pour toi

A installer dans ThisWorkbook

Private Sub Workbook_Open()

Dim dest$, sujet$, texte$

With Sheets('Feuil1')

For Each Cellule In .Range('C1:C' & Range('C65535').End(xlUp).Row)
    If IsDate(Cellule) Then
        If Cellule < Date Then
            dest = .Cells(Cellule.Row, 1)
            sujet = 'Message envoyé par La Compagnie'
            texte = .Cells(Cellule.Row, 4)
            Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
            '/mailurl:mailto:' & dest & _
            '?subject=' & sujet & _
            '&Body=' & texte
            .Cells(Cellule.Row, 3) = Date 'Date du jour dans cellule
        End If
    End If
Next Cellule

End With

End Sub

En A le Mail, en B le Nom, en C la Date et en D l'Action.
Mytå

Message édité par: Mytå, à: 27/06/2006 01:24