outlook via macro excel

[julien]

Je n'ai pas la library d'outlook me permettant de créer les objets pour manipuler les envois de message via excel.
ATTENTION : je ne veux pas envoyer le classeur en pièce jointe

j'utilise donc la macro suivante :

Sub SendMail()
dim addressString As String
addressString = "mailto:" & range("A1") & "?subject=" & range("B1") & "&body=" & range("C1")
activeworkbook.followhyperlink address:=addressString
end Sub

cette macro (d'autre ont le même problème) ne fait que créer le message sans l'envoyer.

J'ai essayé une commande sendkeys
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"

mais elle ne marche pas. je pense qu'elle ne considère pas le nouveau message comme la fenêtre active, du coup le sendkeys s'exécute sur le projet VBA.

Merci pour votre aide

 

[jon]

bonjour

augmente le temps d'attente
et avant ça fais un test manuel sous outlook pour vérifier que le raccourci d'envoi du message est ctrl s, ça m'étonne, ce raccourci permet en général une sauvegarde.

si tu as microsoft outlook (et non pas outlook express), il y a d'autres méthodes d'envoi de mail.

ciao
steph

 

[julien]

J'ai finit par y arriver mais en fait, il faut juste rajourter True au sendkeys :
SendKeys "%s", True

car dans ma macro, je génére 10 mail d'affilées et avec True, dans que %S (qui veut dire Alt+S et non pas Ctrl+S) n'est pas effectuté, il ne continu pas ma boucle.