nickos2406
XLDnaute Junior
Bonjour,
Je me tourne vers vous parce que j'ai un soucis dans une macro excel.
J'ai une liste de destinataire sur une feuille excel, à qui je dois envoyer un fichier respectif (personne 1 envoi du fichier 1, personne 2 envoi fichier 2, etc...).
Tout ceci fonctionne. Le soucis c'est qu'au moment de l'envoi du message Outlook me demande si je peux autoriser l'envoi automatique (cf copie d'écran).
Ce message ralentit forcément la manip, et comme j'ai plus de 100 envois à faire tous les mois, je dois me taper plus de 100 clics....
Comment pourrais-je faire pour éviter ce message?
Voilà la macro:
Sub macro_envoi()
For n = 3 To 83
Set ol = CreateObject("Outlook.Application")
Dim CurrFile As String
Windows("Classeur2.xlsm").Activate
Sheets("Feuil1").Select
Range("e" & n).Select
nom1 = ActiveCell.Value
Selection.Copy
Titre = "Résultats"
CORPS = "Dear " & nom1 & ",<br>" & _
"<br>" & _
"Please, blablabla <B>blablabla</B>.<br>" & _
"<br>" & _
"Regards,<br>" & _
"<br>" & _
"moi,<br>" & _
"blablabla.<br>" & _
"<CITE>blablabla</CITE><br>" & _
"<FONT COLOR=#0000ff>blablabla</FONT><br>"
CORPS = "<font style='font-family: Times New Roman ;font-size: 12pt ;' color=black>" & CORPS & "</font>"
Windows("Classeur2.xlsm").Activate
Sheets("Feuil1").Select
Range("c" & n).Select
nom = ActiveCell.Value
Selection.Copy
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Workbooks("Classeur2.xlsm").Worksheets("Feuil1").Cells(n, 6).Value 'Destinataire
.Subject = Titre '"résultats" 'Sujet
.HTMLBody = CORPS
.Attachments.Add "C:\Documents and Settings\xxxxx\Desktop\Résultats\ & nom & "-Resultats.xls" 'Pièce jointe
.Send
End Sub
MERCI de votre aide...
Cordialement,
Nico
Je me tourne vers vous parce que j'ai un soucis dans une macro excel.
J'ai une liste de destinataire sur une feuille excel, à qui je dois envoyer un fichier respectif (personne 1 envoi du fichier 1, personne 2 envoi fichier 2, etc...).
Tout ceci fonctionne. Le soucis c'est qu'au moment de l'envoi du message Outlook me demande si je peux autoriser l'envoi automatique (cf copie d'écran).
Ce message ralentit forcément la manip, et comme j'ai plus de 100 envois à faire tous les mois, je dois me taper plus de 100 clics....
Comment pourrais-je faire pour éviter ce message?
Voilà la macro:
Sub macro_envoi()
For n = 3 To 83
Set ol = CreateObject("Outlook.Application")
Dim CurrFile As String
Windows("Classeur2.xlsm").Activate
Sheets("Feuil1").Select
Range("e" & n).Select
nom1 = ActiveCell.Value
Selection.Copy
Titre = "Résultats"
CORPS = "Dear " & nom1 & ",<br>" & _
"<br>" & _
"Please, blablabla <B>blablabla</B>.<br>" & _
"<br>" & _
"Regards,<br>" & _
"<br>" & _
"moi,<br>" & _
"blablabla.<br>" & _
"<CITE>blablabla</CITE><br>" & _
"<FONT COLOR=#0000ff>blablabla</FONT><br>"
CORPS = "<font style='font-family: Times New Roman ;font-size: 12pt ;' color=black>" & CORPS & "</font>"
Windows("Classeur2.xlsm").Activate
Sheets("Feuil1").Select
Range("c" & n).Select
nom = ActiveCell.Value
Selection.Copy
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Workbooks("Classeur2.xlsm").Worksheets("Feuil1").Cells(n, 6).Value 'Destinataire
.Subject = Titre '"résultats" 'Sujet
.HTMLBody = CORPS
.Attachments.Add "C:\Documents and Settings\xxxxx\Desktop\Résultats\ & nom & "-Resultats.xls" 'Pièce jointe
.Send
End Sub
MERCI de votre aide...
Cordialement,
Nico
