vba et pièce jointe Fermé

Question

Bonjour,

Bonjour, avec access, j'ai créé une petite application qui utilise un peu de vb. Ainsi, lorsque j'appui sur un certain bouton, access lance ma messagerie internet, insère un texte dans le corps du message et dans le titre, ainsi qu'une adresse de destinataire...
J'aimerai également qu'il insère automatiquement une pièce jointe à mon message, mais comment le demander en vb... ?
Par ailleurs j'aimerai savoir si je peux demander qu'une partie du message insérer dans l'email grâce à VB apparaissent en rouge, est-ce possible ?
Merci 1000x

romain_natiez · Answer

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 !!

romain_natiez · Answer

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 !

MAGMA · Answer

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.

Utilisateur anonyme · Answer

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

romain_natiez · Answer

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

blux · Answer

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"

Robinwood · Answer

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

Vba et pièce jointe

7 réponses

Discussions similaires