Discussion :

[Mirande]

Bonjour

J'ai besoin de pouvoir envoyer des emails avec pièce jointe à partir d'une application développée en VBA Access.

Les emails "semblent correct" mais ils ne partent pas de la boite d'envoi d'outlook (qui n'est pas mon utilitaire mail par défaut ...). Avec ou sans pièce jointe le mail ne veut pas partir.

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim AppliOutlook        As Object
Dim MailMessage         As Object
Dim Corps               As String
 
Set AppliOutlook = CreateObject("Outlook.Application")
Set MailMessage = AppliOutlook.createitem(0)
MailMessage.to = "machin@machin.com"
MailMessage.Subject = "Transfert d'informations ..."
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Transfert d'informations ..."
MailMessage.body = Corps
MailMessage.send
Set AppliOutlook = Nothing

Si quelqu'un a une idée, je suis preneur.

D'avance merci

Frédéric Mirande

[bernardmichel]

Hello

Trouvé sur le Net, une applic (libre de droits) pour les mails développée sous access... à toi de l'adapter si cela te plait

Bonne chance !

Bernard.