Problème paramètre macro envoi de mail

Bonjour à tous,

J'essaye de faire une macro pour envoyer des mails en quantité à des fournisseurs grâce à une macro :

J'ai beau retourner la macro dans tous les sens, je n'arrive toujours pas à paramétrer comme il faut la macro envoi de mail.

La voici :

Sub Send_email()

Call Initialize
Dim toMailList As String
Dim ccMailList As String
Dim attachment_file As String
Dim attachment_picture1 As String
Dim attachment_picture2 As String
Dim oCdo As Object

'Vérification si le fichier doit être créé

While wsFRS.Cells(rowFRS, 1).Value <> ""

If wsFRS.Cells(rowFRS, 2).Value <> "oui" Then GoTo NoMail
FRS = wsFRS.Cells(rowFRS, 1).Value
toMailList = wsFRS.Cells(rowFRS, 3).Value
ccMailList = wsFRS.Cells(rowFRS, 4).Value
attachment_file = folder & "\Suivi_Commande-" & FRS & "-" & year & "S" & week & "-" & day & ".xlsx"

Set oCdo = CreateObject("CDO.Message")
'PreparerOutlook oOutlook
'Set oMailItem = oOutlook.CreateItem(0)
With oCdo

With .Configuration.Fields
.Update

'With oMailItem
'Set .Configuration = CreateObject("CDO.Configuration")
.From = "trucmuche@truc.com"
.To = toMailList
.cc = ccMailList
.Subject = "BackOrder / ABE " & FRS & " " & today_date

.HTMLBody = "<span LANG=FR>" _
& "<p class=style2><span LANG=FR><font FACE=Calibri SIZE=3>" _
& "Bonjour,<br ><br >Voici un récapitulatif de la situation des sites face aux indicateurs appro." _
& "<br> <br>" _
& "<br>La Supply Chain Industrielle<br></font></span>"

.AddAttachment attachment_file 'Excel
.Send

End With
End With

NoMail:
rowFRS = rowFRS + 1
Wend

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

^{J'ai l'impression que jJe n'arrive pas à relier mon mail / Outlook à mon excel. (J'ai bien coché les paramètres nécessaires)}

En espérant avoir été assez clair, merci pour votre aide,

^{Bonne journée à vous,}

^{CCordialement,}

Hello,

Merci de joindre un exemple de fichier pour que l’on puisse te répondre au mieux.

A+,
Kilian

Salut Kilian,

Merci pour ta réponse,

Ci-joint le fichier excel, j'espère que ça sera plus clair.

J'arrive à tout faire dans mes macro, sauf l'envoi de mail, mes filtres fonctionnent bien, ma création de fichier aussi, c'est juste l'envoi de mail :/

Merci de ton aide,

Bonne journée,

Bonjour,

Apparemment vous essayez d'envoyer un mail à partir d'un compte microsoft via l'objet CDO. Ça ne fonctionne plus car Microsoft a rajouté des sécurités bloquant l'envoi par cet objet.

Si on n'utilise pas Office Outlook, la seule solution, c'est d’utiliser un script Powershell lancé à partir du planificateur de tâches pour bénéficier des autorisations nécessaires.

Hello,

En bidouillant un petit peu, voici une solution à tester.

A+,

Kilian

Bonjour à vous deux et merci beaucoup pour vos réponses,

Kilian, ta solution fonctionne, mon mail part et merci beaucoup pour ça ! :)

Seul truc génant c'est que j'ai un message d'erreur en fin de macro :

En cliquant sur débogage, voici ce que j'ai :

C'est le .To = toMailList qui est surligné.

Je précise pourtant que le mail part bien !

Si jamais vous avez une solution pour la rendre plus propre, je suis preneur sinon merci beaucoup :)

Hello,

C'est une erreur de ma part, je déplacer

Set oMailItem = Outlook.CreateItem(olMailItem)

en dehors de la boucle, donc ça ne recréer pas de mail à chaque passage dans la boucle.

Juste pour info et comme tu as pu le constater dans le code, j'ai désactiver le .From et sa prend donc l'utilisateur outlook en cours. J'ai fait de même pour le CC car ta liste est juste du texte et non une adresse, ce qui génère une erreur.

Je vois aussi que tu as déclarer toutes tes variables en début de module, je te conseille d'ajouter Option Explicit en haut du module, ce qui va te forcer à bien déclarer chaque variable. Une habitude à prendre

J'espère avoir répondu à ta demande. A prendre en compte également ce qu'a dit Thev.

A+,

Kilian

Kilian,

Merci beaucoup ! tout fonctionne c'est beau :)

Au niveau du Option explicit je ne connais pas,

il suffit de le mettre au début de mes DIM, genre juste avant :

Option Explicit on

Dim....

ça fonctionne comme ça ?

Merci beaucoup en tout cas !

Exactement, tu ajoute en haut du module et tu déclare tes variables soit en dessous, soit dans chaque Sub à toi de voir.

Si une variable n'est pas déclaré, ça te renvoi une erreur et donc te force à déclarer toutes tes variables.

A+

Kilian

ça roule ! merci beaucoup encore !

C'est fait,

bonne journée, :)