Discussion :

[yaco32]

Bonjour,

Je viens de tester le code de cette discussion et j'obtiens une erreur d'application 438 sur cette ligne (propriété ou méthode non gérée par cet objet) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strPath$, OutlookItem, ColAttach
Const olByValue = 1
    Set OutlookItem = Application.CreateItem(0)
    OutlookItem.To = "youremail@email.com"
    OutlookItem.Subject = "This will work!"
    OutlookItem.Body = "This works great, no warning message from Outlook!"
    Set ColAttach = OutlookItem.Attachments
    strPath = App.Path & "\simple.txt"
    ColAttach.Add strPath, olByValue, 1, "File Attachment"
    OutlookItem.Display
    SendKeys "%{s}", True

j'utilise Office 2007 et non 2000 ou 2003 comme spécifier dans le lien.

Help s'il vous plait!

Merci!

[goldstar]

Bonjour,

copier le fichier joint sous c:\ par exemple puis dans le code

Avant le

Code :

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

EmailMsg.Send

ajouter

Code :

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

1
2
3
4
 
 
 somelong = wshell.Run("C:\sendkeys13.vbs ")
.Display

[yaco32]

Salut,

Je ne comprend pas.

Avant le

Code :

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

EmailMsg.Send

Ce morceau de code n'est pas utilisé dans le lien de SilkyRoad.

[goldstar]

Depuis votre source