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.
Version complète : Programmer L'envoi D'emails Avec Vb6
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
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 ...
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
et j'ai ajouter la reference microsoft outlook11.0
Merci de bien vouloir m'aider
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
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
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 ...).
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 ...).
Salut tout le monde.
J'ai essayé votre tutoriel mais j'ai un probleme lorsque je l'execute.
Pourriez vous m'aider svp ?
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
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
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
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.
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.
Et voilà 
Ceci une version "bas débit" de notre forum. Pour voir la version complète avec plus d'information, la mise en page et les images, veuillez cliquez ici.