Tom's Guide > Forum > Programmation > [access][vba]Envoie de mail via formulaire vers Outlook

[access][vba]Envoie de mail via formulaire vers Outlook

Forum Programmation : [access][vba]Envoie de mail via formulaire vers Outlook

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
espion4   08-07-2008 à 19:38:21

Salut a tous, :hello:
Je dois realiser une application sous access, une sorte d'helpdesk et j'ai un formulaire a remplir avec des champs nom,prenom,mail,objet afin de prendre RDV. J'aimerais pouvoir cliquer sur un bouton Envoyer afin que l'utilisateur en question recoive le RDV.
J'ai trouvé un code sous VBA qui le fait mais le destinataire doit etre fixé. Le probleme est que c'est aujourd'hui que je fais connaissance avec ce langage :sweat: mais j'y ait compris quelque lignes. :D

Code :
  1. Private Sub Send_Click() 
  2.     Dim MonOutlook As Object
  3.     Dim MonMessage As Object
  4.     Set MonOutlook = CreateObject("Outlook.Application" )
  5.     Set MonMessage = MonOutlook.createitem(0)
  6.     MonMessage.To = "toto@mail.biz"
  7.     MonMessage.Subject = "News"
  8.     MonMessage.body = "RAS"
  9.     MonMessage.send
  10.     Set MonOutlook = Nothing
  11. End Sub


Ce que je voudrais c'est recuperer les champs "Objet" et "mail" de mon formulaire (afin de les retrouver dans outlook) oubien d'envoyer directement ces informations a cet utilisateur a partir du formulaire sous access.
J'espere avoir été assez clair.:)
Merci de votre aide.

------------------------------ Une fois c'est une erreur, deux fois c'est une coincidence, trois fois c'est la confirmation!
La perfection ce n'est pas lorsqu'il n'y a plus rien à ajouter mais lorsqu'il n'y a plus rien à retirer.
Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
espion4   11-07-2008 à 15:28:32
- 0 +

UP UP UP.
Y'a donc personne pour m'aider? A moins que ce ne soit pas faisable?
Je veux juste remplir les champs d'Outlook avec les données en cours de saisie dans le formulaire access. :(


Message édité par espion4 le 11-07-2008 à 15:29:33
Répondre à espion4
Anonyme   23-03-2009 à 18:41:09
- 0 +

salut ,

moi aussi je cherche le code source, VB, je veux envoyer un etat sous forme PDF a un contact dans cette etat issue d'une requete , merci :lol:

Répondre à Anonyme
espion4   26-03-2009 à 00:30:28
- 0 +

J'ai trouvé la solution depuis longtemps mais j'ai oublié de la mettre ici. Sinon voici ce que j'ai fait et ca à marché a merveille.

Code :
  1. Private Sub Commande29_Click()
  2.           Dim objOutlook As Outlook.Application
  3.           Dim objOutlookMsg As Outlook.MailItem
  4.          
  5.           'Permet de définir le type de destinataire (A, C. Conforme, C. Invisible)
  6.           Dim objOutlookRecip As Outlook.Recipient
  8.           ' Crée la session Outlook.
  9.           Set objOutlook = CreateObject("Outlook.Application" )
  11.           ' Crée le message.
  12.           Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  14.           With objOutlookMsg
  15.               ' Ajoute le(s) destinataire(s) au message.
  16.               'Me![nom_variable]: le nom de la variable utilisée dans le formulaire
  17.               'La meme chose pour la copie conforme et invisible avec des variables
  18.             [b] Set objOutlookRecip = .Recipients.Add(Me![E-mail]) [/b]
  19.             [b] objOutlookRecip.Type = olTo[/b]
  21.               ' Ajoute les destinataires en copie conforme au message.
  22.               'Set objOutlookRecip = .Recipients.Add("toto@bizu.com" )
  23.               'objOutlookRecip.Type = olCC
  25.             'Ajoute les destinataires en copie invisible au message.
  26.               'Set objOutlookRecip = .Recipients.Add("toto@bizu.com" )
  27.               'objOutlookRecip.Type = olBCC
  29.             ' Définit l'objet, le corps et la priorité du message(high,low).
  30.             [b] .Subject = Me![Sujet_msg] [/b]
  31.             [b] .Body = Me![Objet_msg] & vbCrLf & vbCrLf [/b]
  32.             [b] .Importance = olImportanceHigh[/b]
  34.             ' Le message doit-il être affiché avant d'être envoyé ?
  35.             If DisplayMsg Then
  36.                 .Display
  37.             Else
  38.                 .Save
  39.                 .send
  40.                
  41.             End If
  42.           End With
  43.           Set objOutlook = Nothing
  44. End Sub


Si tu as d'autres questions je pourrais peut etre t'aider quoi que le VB je l'ai touché en tout juste deux semaines.


Message édité par espion4 le 26-03-2009 à 00:46:41
------------------------------ Une fois c'est une erreur, deux fois c'est une coincidence, trois fois c'est la confirmation!
La perfection ce n'est pas lorsqu'il n'y a plus rien à ajouter mais lorsqu'il n'y a plus rien à retirer.
 Répondre à espion4
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [access][vba]Envoie de mail via formulaire vers Outlook
Aller à :

Il y a 278 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,351 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens