Bonjour le forum,
J'ai un souci avec la macro suivante:
Sub test()
Dim oOutlook As Object
Dim oMail As Object
Dim oObjetWord As Object
Dim Sujet As String
Dim rng As Range
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
With oMail
For Each rng In Range("P44:U45")
If rng <> "" Then
.Recipients.Add (Replace(LCase([rng]), " ", ".") & "@" & "test.fr")
.Subject = "Test"
.HTMLBody = "<html><body>Bonjour,<br><br>" _
& "Ceci est un test.<br><br>" _
& "Veuillez ne pas en prendre compte.<br><br>" _
& "Cordialement.<br><br>"
'.Display
.Send
End If
Next rng
End With
End Sub
Lorsque je renseigne une seule cellule de la plage, l'envoi du mail se fait sans problème.
Dès que je renseigne une deuxième cellule, j'ai une erreur "&h8004010a"
Par contre si je fais ".Display", les 2 destinataires s'affiche bien.
Je ne comprends pas d'où vient le problème
NB: le "test.fr" dans Recipients.Add est évidemment factice, l'adresse réelle étant celle du boulot.
Merci d'avance à celui qui se penchera sur mon souci.
Cordialement.