prob debug outlook.application
Bonjour a tous,
j'essaye d'envoyer un classeur actif par mail en piece jointe.
mon soucis "un composant activeX ne peut pas crée un objet"
pourriez-vous m'aider à debuger ce code car je pense avoir encore quelques épines... j'ai ponctionné plusieurs partie de code ci et là.
je suis en excel 2003 et besoin que ça marche aussi sur version supérieur.
Code:
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
26
27
28
29
30
31
32
33
| Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Dim destinataire As String
Dim copier As String
destinataire = TextBox1.Text
If CheckBox1.Value = True Then
copie = Range("D9").Value
End If
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application") ' <--- ici erreur
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = destinataire
.CC = copier
.BCC = ""
.Subject = "essais"
.Body = "ça marche pas !"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub |
