Comment envoyer des mails sous vb via outlook 2003 - VB/VBA/VBS - Programmation
Marsh Posté le 21-02-2005 à 08:55:20
Voici l'erreur qu'il me donne quand il essaie de créer l'item:
Run Time error:2147024770(800700700e)
Automation error
The specified module could not be found
Marsh Posté le 21-02-2005 à 08:22:30
Bonjour j'essaie d'envoyer des mails sous vb6 via outlook 2003
voici mon code
Private Sub EnvoyerMail(Destinataire As String, Fichier As String)
Dim objOutlook As New outlook.Application
Dim objOutlookMsg As outlook.MailItem
' Set objOutlook = outlook.Application
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = Destinataire
.Attachments.Add Fichier
.Subject = "Veuillez signaler les anomalies éventuelles."
.Send
End With
Set objOutlookMsg = Nothing
End Sub
ce code marche très bien pour outlook 2000 mais pas avec le 2003
j'ai insérer la réference outlook 11.0
Si quelqu'un peut m'aider??? MERCI