Vba et pièce jointe

ton appli a l'air interressante !
je ne sais pas du tout quoi répondre pour ton problème par contre, je pense qu'il faut aller sur des sites visual basic ou vba comme
http://platon.lacitec.on.ca/~mlatre/vb6/vb.htm
http://docvb.free.fr/apidetail.php?idapi=155
http://support.microsoft.com/default.aspx?scid=fh;FR;kbhowto­

j'espère que tu trouvera ton bonheur !!

au fait je suis en stage et le code de ton appli pourrai m'aider
car je dois faire évoluer une appli qui envoie des fax
en faisant ensorte qu'elle envoie des fax et des mails

je te demande juste si tu veux bien, t pas obligé mais ca m'aiderais beaucoup ;-)

je te laisse mon mail RNatiez@PortdeDunkerque.fr

merci d'avance !

Voila la méthode que j'ai utilisé :
D'abord j'ai créé des variables et j'y ai inséré des données (qui varient IF ceci ou IF cela), du genre...

Me.mobjet.Value = "Objet de cet email"

' et

Txcourriel = "Bonjour " & vprenom & " " & UCase(vnom) & "," & vbCrLf _

' Puis j'ai fait :
Me.mtexte = Txcourriel

' Puis j'ai fait :
vmail = Me.RClMail 'il récupère l'email dans la bdd
vobjet = Me.mobjet 'il récupère l'objet de message défini plus haut
vtexte = Me.mtexte ' idem pour le texte du message
DoCmd.SendObject , , , vmail, "mon_email@moi.com", , vobjet, vtexte, True ' c'est LA que ça se passe !

Donc voila. C'est dans le contenu de ma variable vtexte que j'aimerai mettre un peu de texte en couleur, mais j'ai l'impression que c'est impossible. Par ailleurs, j'aimerai surtout pouvoir insérer un fichier joint avec cet email que je viens de générer. Mais là encore les adresses web que tu m'a refilées ne proposent pas de résoudre le pb selon la méthode que j'ai employée. Comme j'ai pas envie de recommencer à zéro...si qq'un a une idée.

Salut,

Voici un exemple tiré du VBA Excel, peut-être pourez-vous
l'adapter dans access. Ça devrait vous donner une piste !

Sub Courriel()

Workbooks("COURRIELS.XLS").HasRoutingSlip = True
With Workbooks("COURRIELS.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = "adresse@serveur.net"
.Subject = "Voici le fichier COURRIELS.XLS"
.Message = "Voici le classeur !"
.ReturnWhenDone = True
End With
Workbooks("COURRIELS.XLS").Route

End Sub
'

Lupin

Merci à vous deux pour le code, je regarde ca ce week-end et je vous dit koi lundi

romain_natiez

Salut,

le plus simple est quand même d'utiliser un controle ActiveX qui fait cela tout seul (sans passer par le client de la machine).

Un très bon : smtp ocx de chez ostrosoft :

http://www.ostrosoft.com/smtp.asp

Il permet de gérer les pièces jointes... l'aide est bien faite... et il est gratuit :-)

A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Merci pour la solu Magma, je cherchais à résoudre ce problème depuis 3 jours.