Se connecter avec
S'enregistrer | Connectez-vous

creation d ojet OLE Outlook

Dernière réponse : dans Programmation

bonjour,

cette macro est censee ouvrir outlook mais elle me renvoie une erreur automation pour la ligne 6 de creation de l objet outlook (pourtant cette macro marche sur un autre ordi!!!!). Quelqu un peut il me dire s il voit ou est l erreur? Voici le code:

  1. Sub Mail_Text_From_Txtfile_Outlook()
  2. ' Is working in Office 2000-2007
  3. Dim OutApp As Object
  4. Dim OutMail As Object
  5.  
  6. Set OutApp = CreateObject("Outlook.Application")
  7. OutApp.Session.Logon
  8. Set OutMail = OutApp.CreateItem(0)
  9.  
  10. On Error Resume Next
  11. With OutMail
  12. .To = "ron@debruin.nl"
  13. .CC = ""
  14. .BCC = ""
  15. .Subject = "This is the Subject line"
  16. .Body = "essai"
  17. .Display 'or use .Send
  18. End With
  19. On Error GoTo 0
  20.  
  21. Set OutMail = Nothing
  22. Set OutApp = Nothing
  23. End Sub


Merci d avance,

Zoe

Autres pages sur : creation ojet ole outlook

Lassé par la pub ? Créez un compte
Lassé par la pub ? Créez un compte