Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
est-ce que quelqu'un à la même erreur?
je viens de le modifier en suivant l'exemple dans l'aide et toujours le même problème.
Exemple:
Je recherche une personne, je clique sur le bouton Ouvrir, je selectionne certains emails, je joins un fichier et j'envois; jusqu'ici pas de problème. Je ferme le formulaire où il y a les adresses(ListBox).
Je fait une nouvelle recherche, bouton Ouvrir, je coche sélection étendue, clic sur Envoyer; c'est là que l'erreur survient.
Fichier: Carnet d'adresses
Dans le fichier, il y a une référence maquante qu'il faut décoché.
A+
est-ce que quelqu'un à la même erreur?
Code:
Private Sub Envois_Click()
Dim Chaine As String
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Chaine = Chaine & " " & ListBox1.List(i) & ";"
End If
Next i
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Dim Chemin
Chemin = Application.GetOpenFilename("*.*, *.*")
ChDrive "D"
ChDir ("D:\Dossiers Excel\Formulaires\Carnet d'adresses\")
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem) 'C'est sur cette ligne: Erreur 462
With Msg
.To = Nouveau.Email.Value
.cc = ""
.BCC = Trim(Chaine)
.Subject = ""
.Body = ""
.Display
End With
If VarType(Chemin) <> 11 Then
Msg.Attachments.Add Chemin
End If
End Sub
je viens de le modifier en suivant l'exemple dans l'aide et toujours le même problème.
Exemple:
Je recherche une personne, je clique sur le bouton Ouvrir, je selectionne certains emails, je joins un fichier et j'envois; jusqu'ici pas de problème. Je ferme le formulaire où il y a les adresses(ListBox).
Je fait une nouvelle recherche, bouton Ouvrir, je coche sélection étendue, clic sur Envoyer; c'est là que l'erreur survient.
Fichier: Carnet d'adresses
Dans le fichier, il y a une référence maquante qu'il faut décoché.
A+
Dernière édition: