Envoi de mail auto

[Amandine]

Bonjour à tous,

Il fait chaud et je suis encore en train de travailler. C'est dur la vie... J'ai une petite question, je voudrais envoyer un mail automatiquement puis retourner dans l'exécution de mon programme...

sujet = Range("E4")
texte = Range("E5")
addressString = "mailto:" & mail & "?subject=" & sujet & "&body=" & texte
ActiveWorkbook.FollowHyperlink Address:=addressString

Voilà mon code, j'utilise MICROSOFT OUTLOOK et EXCEL97.

Bonne soirée à tous, et si qq1 a la solution miracle qu'il n'hésite pas

 

[A-binouze_drinker_among_others]

bonjour

si tu préfères utiliser la mèthode followhyperlink plutôt que faire reference a la librairie d objets outlook, le seul moyen que tu aies est semble-t-il l´utlisation de la méthode Sendkeys, pour simuler l´activation de touches.

l´aide est bien documentée sur cette méthode.

bye
stephane

 

[Amandine]

OK merci beaucoup ça marche nickel. Ca fait plaisir de voir autant de monde se dévouer pour s'entraider!