Sub Mail()
'Envoyer un message depuis Outlook
'avec la valeur d'une cellule dans le message
'Vériland Décembre 2003
Dim Adresse, Sujet, Texte, Message As String
Message = Range("A1").Value
On Error GoTo PasTrouve ' ici on sort si Outlock n'est pas trouvé
Adresse = "******@******.fr" ' ici inscrire l'email
Sujet = "sujet du Mail"
Texte = "Bonjour," & Chr$(10) & Chr$(10) _
& Message & Chr$(10) & Chr$(10) & "Signé " _
& Application.UserName
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & Adresse & _
"?subject=" & Sujet & "&Body=" & Texte
Exit Sub
PasTrouve:
MsgBox "Ne trouve pas Outloock...aucun message envoyé..."
End Sub
ici pour l'exemple c'est le contenu de la cellule A1 qui est envoyé depuis Outloock...à l'ouverture l'email et le sujet s'inscrivent automatiquement ainsi que le message :
Bonjour,
ici la valeur de la cellule A1
Signé...le nom de l'user
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...