Discussion :

[Julianos]

Bonjour,

J'utilise le code VBA ci-dessous pour enregistrer une série de courriels à envoyer, dans mes brouillons Outlook. Je viens de créer un nouveau fichier et cela ne fonctionne plus. À la ligne ".body" j'ai une erreur 1004. Je ne suis pas vraiment très familière avec VBA.
Y a t-il un moyen de contourner cette erreur?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Public Sub PrepCourriel()
  Dim OutlookApp As Object
  Dim OutlookMail As Object
  Dim i As Long
 
  For i = 1 To Range("Tbl_PubliFor").Rows.Count
    If Range("Tbl_PubliFor[Envoi lettre]")(i) = "oui" Then
      Set OutlookApp = CreateObject("outlook.application")
      Set OutlookMail = OutlookApp.CreateItem(0)
      With OutlookMail
        .Subject = "Blabla"
        .To = Range("Tbl_PubliFor[Adresse courriel signataire]")(i).Value
        .CC = Range("Tbl_PubliFor[Adresse courriel responsable]")(i).Value
        .Body = Range("Tbl_PubliFor[Texte Courriel]")(i).Value
        .Attachments.Add Range("Tbl_PubliFor[Emplacement lettre]")(i).Value
        .Save
      End With
    End If
  Next i
End Sub

[ChristianBosch]

Bonjour,

Je trouve dommage de ne pas utiliser les références structurées étant donné que tu as un tableau structuré !

Essaye ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Public Sub PrepCourriel()
  Dim OutlookApp As Object
  Dim OutlookMail As Object
  Dim mycell As Range
  Dim i As Integer
  Dim MyTab As ListObject
  Set MyTab = Feuil1.ListObjects("Tbl_PubliFor")
 
  For i = 1 To MyTab.ListRows.Count
    If MyTab.ListColumns("Envoi lettre").Range(i) = "oui" Then
      Set OutlookApp = CreateObject("outlook.application")
      Set OutlookMail = OutlookApp.CreateItem(0)
      With OutlookMail
        .Subject = "Blabla"
        .to = MyTab.ListColumns("Adresse courriel signataire").Range(i).Value
        .CC = MyTab.ListColumns("Adresse courriel responsable").Range(i).Value
        .Body = MyTab.ListColumns("Texte Courriel").Range(i).Value
        .Attachments.Add MyTab.ListColumns("Emplacement lettre").Range(i).Value
        .Save
      End With
    End If
  Next i
End Sub

PS: Dans l'initialisation de la variable "MyTab" j'ai mis que le tableau étant dans l'objet worksheet "Feuil1", il faut le modifier selon ton cas