Bonjour,
J'ai ce script qui fonctionne bien pour envoyer des mails :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("A1")
Subj = Range("A2")
Msg = Msg & Range("A3")
URLto = "mailto:" & MailAd ' & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Mon soucis c'est que je souhaiterai faire l'envoi d'un mail à "plusieurs" personnes (jusqu'à 2000) et ce script ne fonctionne pas au dessus de 20/30 emails.
Quelqu'un a -til une idée ?
Par avance merci
HUGS
(ci-joint 1 classeur exemple de mon problème )
J'ai ce script qui fonctionne bien pour envoyer des mails :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("A1")
Subj = Range("A2")
Msg = Msg & Range("A3")
URLto = "mailto:" & MailAd ' & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Mon soucis c'est que je souhaiterai faire l'envoi d'un mail à "plusieurs" personnes (jusqu'à 2000) et ce script ne fonctionne pas au dessus de 20/30 emails.
Quelqu'un a -til une idée ?
Par avance merci
HUGS
(ci-joint 1 classeur exemple de mon problème )