 Programmer L'envoi D'emails Avec Vb6 |
Bienvenue invité ( Connexion | Inscription )
  |
| Programmer L'envoi D'emails Avec Vb6 |
| Guest_jondalarInvité_ |
 05-08-2004 - 2:09
Message
#1
|
|
Invités  |
Bonjour,
Je dois envoyer des mails automatiquement (avec outlook 2000) à partir d'une application que je programme en Visual Basic 6 Quelqu'un pourrait-il me dire comment créer un message, y affecter un destinataire et l'envoyer. Merci, Bonne journée. |
 |
 
|
|
05-08-2004 - 3:09
Message
#2
|
|
 Modérateur loufoque et linuxien Groupe : Modérateurs Messages : 2 919 Inscrit : 26-11-2002 Lieu : Bruxelles Membre n° 148 |
CODE Dim OutlApp As New Outlook.Application Dim OutMail As MailItem Dim CurrFile As String Set OutlApp = New Outlook.Application Set OutMail = OutlApp.CreateItem(olMailItem) On Error GoTo ErrFichierMail With OutMail .To = "XXX" .Subject = "YYY" .Body = "ZZZ" .Attachments.Add "fichier.xls" ' .Display ' pour l'affichage du message .Send ' pour l'envoi direct du message End With Essaie avec ca ... -------------------- |
|
|
|
|
18-02-2005 - 9:59
Message
#3
|
|
|
Membre Groupe : Membres Messages : 1 Inscrit : 18-02-2005 Membre n° 5 848 |
Le code marche tres bien mais seulement avec Outlook 2000
Hors moi dans le cadre d'un projet, je dois faire cela mais avec Outlook2003 et j'ai toujours une erreur lors de la fonction createitem() l'erreur est la suivante: automation error the specified module could not be found voici mon code 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 et j'ai ajouter la reference microsoft outlook11.0 Merci de bien vouloir m'aider |
|
|
|
|
18-02-2005 - 14:54
Message
#4
|
|
|
Modérateur loufoque et linuxien Groupe : Modérateurs Messages : 2 919 Inscrit : 26-11-2002 Lieu : Bruxelles Membre n° 148 |
Je viens de tester le code, il fonctionne avec Office 97, 2000, 2003 ...
Le problème doit venir du fait que tu ne définis pas le Outlook Application préalablement à la configuration du message Outlook non ? (Cf. Tu as mis en commentaire le Set objOutlookMsg ...). -------------------- |
|
|
|
|
19-05-2006 - 3:48
Message
#5
|
|
|
Membre Groupe : Membres Messages : 1 Inscrit : 19-05-2006 Membre n° 9 743 |
Salut tout le monde.
J'ai essayé votre tutoriel mais j'ai un probleme lorsque je l'execute. Pourriez vous m'aider svp ? CODE Dim OutlApp As New Outlook.Application Dim OutMail As MailItem Dim CurrFile As String Set OutlApp = New Outlook.Application Set OutMail = OutlApp.CreateItem(olMailItem) On Error GoTo ErrFichierMail With OutMail .To = "aaa@bbb.com" .Subject = "YYY" .Body = "ZZZ" .Attachments.Add "fichier.xls" ' .Display ' pour l'affichage du message .Send ' pour l'envoi direct du message End With J'ai un probleme à la premiere ligne. Un message d'erreur apparait : "Type defini par l'utilisateur non defini" Je sais pas comment faire. Je compte sur vous. Merci beaucoup |
|
|
|
|
19-05-2006 - 9:18
Message
#6
|
|
|
Modérateur loufoque et linuxien Groupe : Modérateurs Messages : 2 919 Inscrit : 26-11-2002 Lieu : Bruxelles Membre n° 148 |
Hello,
Fais simplement passer la définition de l'application Outlook en premier (avant de définir l'item de Mail) et cela devrait fonctionner (j'ai fais la même erreur dans le code initial !! Et j'avais pas vu  ). Par contre j'invite un modo à éditer ton message, sinon la gentille "stéphanie" va se faire bombarder de mail de spam  G. -------------------- |
|
|
|
|
19-05-2006 - 15:46
Message
#7
|
|
 Ami du weby Groupe : Modérateurs Messages : 623 Inscrit : 05-01-2006 Lieu : Granby, Québec Membre n° 8 798 |
Et voilà
-------------------- Un ordinateur c'est comme une femme, quand ça plante, tu ne sais jamais pourquoi
Bonne orthographe, bonne conjugaison et bonne ponctuation, voilà le secret d'une bonne communication |
|
|
|
|
|
Version bas débit | Nous sommes le : 08-09-2008 - 14:03 |
