macro et outlook

[SYLVAIN]

CouCou a tous,

Une petite question,

est il possible de creer une macro qui ouvre outlook et ki inscrit la selection d'une cellule par exemple.

 

[Vériland]

Bonsoir SYLVAIN,

c'est possible...

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...

 

[SYLVAIN]

Meric,

ca marche super thx