Re: Excel & Outlook
Re,
Blacksoul, comme tu n'envoies pas de fichier joint voici un code que j'ai trouvé y a quelque temps: testé sous xl 2000 avec outlook express et microsoft outlook
Sub EnvoyerBlacksoul()
' code original Ron de Bruin trouvé sur http://www.j-walk.com/ss/excel/tips/tip86.htm
Dim C As Range, Recipient As String, Subj As String, Msg As String
Dim HLINK As String
For Each C In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If C.Value Like "*@*" Then
Recipient = C.Value
Subj = "Accompte BLACKSOUL"
Msg = "Mr " & C.Offset(0, -1).Value & "%0A"
Msg = Msg & "%0A" & "Je vous informe que vous êtes redevable de la somme "
Msg = Msg & C.Offset(0, 4).Value & " Euros pour l'impôt....." & "%0A"
Msg = Msg & "%0A" & "BLACKSOUL"
Msg = Msg & "%0A" & "Aide comptable qui ne travaille pas pour les impôts"
HLINK = "mailto:" & Recipient & "?"
HLINK = HLINK & "subject=" & Subj & "&"
HLINK = HLINK & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLINK)
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%s", True
End If
Next C
End Sub
Petit précision "%0A", permette d'aller à la ligne, il ne reste plus qu' à adapter suivant la date que tu demandes.....
A+++