Comment envoyer des mails sous vb via outlook 2003

Comment envoyer des mails sous vb via outlook 2003 - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 21-02-2005 à 08:22:30   

Reply

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

Reply

Marsh Posté le 08-03-2005 à 16:13:32    

Est ce possible que c'est a cause du SP2????

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed