J
julien
Guest
Je n'ai pas la library d'outlook me permettant de créer les objets pour manipuler les envois de message via excel.
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
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
