Salut à tous et aux autres!!!!
J'aimerai envoyé un mail à un client via un formulaire contenant ses coordonnées, le tout sous VBA/Access 2000.
G déjà tapé ça :
Code :
- Private Sub Envoi_mail_à_Client_Click()
- Dim MonOutlook As Object
- Dim MonMessage As Object
- ' On crée une instance d'Outlook :
- Set MonOutlook = CreateObject("Outlook.Application" )
- ' Et on crée un élément Outlook, qui sera un message E-Mail :
- Set MonMessage = MonOutlook.CreateItem(0)
- ' Adresse de destination:
- MonMessage.To = "bibi69100@hotmail.com"
- ' Adresse de copie conforme:
- MonMessage.Cc = ""
- ' Adresse de copie invisible:
- MonMessage.Bcc = ""
- ' Sujet du message:
- MonMessage.Subject = "Quel beau soleil"
- ' Texte du message
- MonMessage.body = "N'est ce pas un beau temps pour aller à la piscine ?"
- ' Ajout des pièces jointes
- MonMessage.Attachments.Add "C:\Documents and Settings\julien\Bureau\logo_ICS.jpg"
- ' Envoi du message
- MonMessage.send
- Set MonOutlook = Nothing ' On ferme !
- End Sub
|
Mais il refuse d'envoyer le mail, l'erreur est la suivante :
"Impossible d'ouvrir EMail. Impossible d'ouvrir le fichier spécifié."
Je ne sais plus koi faire. Qqun pourrait m'aider svp?
PS: je me suis servi du site http://www.info-3000.com/vbvba/envoiemailoutlook.php.
Merci à tous et aux...non, je la refait pas celle-là, elle est déjà pas drôle une , alors deux....
---------------
Est-ce de l'info que tu respires ? Arrête d'essayer de programmer, fais-le !