> Tous les forums > Forum Bureautique
 Envoie Mail avec piece jointe ACCESS 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
marsutof
  Posté le 30/11/2011 @ 12:45 
Aller en bas de la page 

Bonjour à tous !

Je suis en stage et j'ai besoin d'un coup de main sur ACCESS.

Je souhaite créer un formulaire avec un bouton "envoyer" qui me permet d'envoyer un mail directement d'ACCESS avec la pièce jointe de la fiche.

Ca devrait ressemenbler à :

Nom : "nom du client"

Prénom : "prénom du client"

Adresses : "suite logique"

Code postale : "idem"

Ville : "idem"

Mail : "mail du contact"

Piece jointe: "photo sur le pc"

bouton : "envoyer"

L'idée est que lorsque l'on rentre les informations du client, avec la photo associé, je clique sur le bouton et celui-ci envoie le mail selon l'adresse du champ "mail" avec la pièce jointe du champ "pièce jointe".

Quelqu'un pourrait il me donner l'ensemble de la marche à suivre sachant que je travail sur OFFICE 2007 (OUTLOOK et ACCESS)

Merci d'avance

Cette demande est assez urgente donc merci de toutes les aides !

A bientôt

Publicité
qmike549
 Posté le 30/11/2011 à 12:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

marsutof
 Posté le 30/11/2011 à 13:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Merci de cette réponse mais je suis vraiment novice et là je sais toujours pas faire. encore un coup de main détailler selon ma demande s'il vous plait

marsutof
 Posté le 30/11/2011 à 18:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Bonsoir,

Navré je vais être un chiant mais je n'y arrive pas, je dois être bête mais là rien de ce que tu m'as donné m'aide, soit je sais pas m'en servir soit y autre chose.

Pourrai-je avoir d'avantage de précision sur la marche à suivre s'il vous plait.

Merci d'avance

qmike549
 Posté le 30/11/2011 à 19:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Il serait interessant que tu nous dise où cela peche

Qu'as tu fait pour t'en sortir

Quel est le problème

As tu commencé à créer quelque chose

marsutof
 Posté le 30/11/2011 à 19:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

RE

Vu que j'ai pas pu sur ce forum vous montrer mon imprime écran voici un lien vers un autre pour le montrer:

http://www.clubic.com/profil/photo-imprime-ecran-38162.html

Merci encore pour le coup de main

marsutof
 Posté le 30/11/2011 à 20:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Pardon,

Oui j'ai fait des essaies, j'ai essaie de copier dans un module les différents code, puis essaié un bouton avec clic dont j'y ai inséré un code. Mais rien ne fonctionne j'ai toujours des erreurs que je comprends pas forcément car je comprends pas forcément non plus les tutos et comment m'en servir.

Voilà pourquoi je demande une méga aide car novice est peu dire pour moi.

Merci encore

marsutof
 Posté le 01/12/2011 à 14:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Y a personne qui est apte à pouvoir m'aider???

Allez svp, j'ai vraiment besoin que ça fonctionne

{#}

qmike549
 Posté le 01/12/2011 à 14:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Le lien donné affiche ton formulaire mais ne donne pas le code que tu as construit pour envoyer ce mail

Publicité
marsutof
 Posté le 02/12/2011 à 19:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Bonjour,

J'ai donc essayé cette façon:

Mode création, j'ai appuyé sur le bouton XXX pour faire un bouton, je l'ai placé sur mon formulaire, sur l'assistance j'ai fait annulé, puis clic sur ce bouton, feuille de propriété, évènement, ligne "sur clic" et là les 3 petits points, ouverture de visual basic donc j'ai écris ce code:

Private Sub Commande27_Click()
OBJET_SEND = PlainText(OBJET.Value)

'OBJET_SEND = OBJET.Value

Dim gen_Email As Outlook.MailItem
Dim ex_OutLook As Outlook.Application

Set ex_OutLook = New Outlook.Application
Set gen_Email = appOutLook.CreateItem(olMailItem)

gen_Email .To = Adresse_mail.Value
gen_Email .Subject = Nom.Value
gen_Email .Body = Photos.Value



gen_Email .Send


Set gen_Email = Nothing

Set ex_OutLook = Nothing
End Sub

Bien sur j'y comprend pas grand chose du coup c'est un peu du copier coller du deuxième lien donné ci-dessus.

Le problème maintenant (hors mis le fait que je sache pas si c'est ce qu'il fallait faire), lorsque je clique sur mon bouton (mode affichage) il me r'ouvre visual basic avec une erreur sur la ligne "...gen_email .to = adresse_mail.value

Voila, merci de m'aider et s'il vous plait essayé de me donner toutes la démarche à suivre pour que je puisse obtenir le résultat souhaité.

Merci encore

marsutof
 Posté le 03/12/2011 à 07:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

ok merci je vais essayé ce matin et je donne l'info qui suivera !

marsutof
 Posté le 03/12/2011 à 09:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Bonjour,

Voila les news, malgré l'enlèvement des espaces, rien n'y fait, donc en re-re-re-re fouillant sur internet je suis tomber sur un code que j'ai essayé et là j'ai un nouveau message lorsque je clic sur mon bouton du style "une erreur a été produite: propriété ou méthode non gérée par cet objet".

Là je me dis que je suis pas loin du résultat donc j'ai encore besoin d'un coup de main car je comprend pas l'erreur. Voici le code correspondant à mon formulaire et mon bouton:

Private Sub cmd_EnvoiMail_Click()
On Error GoTo Err_cmd_EnvoiMail_Click
Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Adresse_mail
.Subject = Me.Nom
.HTMLBody = Me.Prénom
If Left(Me.Photos, 1) <> "<" Then
.Attachments.Add (Me.Photos)
End If
.Send
End With

Exit Sub
Err_cmd_EnvoiMail_Click:
MsgBox "Une erreur a été produite." & vbCrLf & "Le message d'erreur est: " & Err.Description
Resume Erreur_Non
Erreur_Non:
End Sub

Merci

marsutof
 Posté le 05/12/2011 à 00:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page

Ca y est {#} c'est ok, pour tous ceux que ça intéresse, le dernier code que j'ai écris fonctionne très bien après la modif suivante: il fallait que mon champs "attachments.add (Me.photos) ne soit plus en piece jointe et plutot en format texte avec le chemin d'acces exacte du fichier à envoyer.

En tous cas un grand merci pour votre aide !!!

Bye {#}

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Impossible envoi de piece jointe avec un mail
outlook 2007 probleme avec piece jointe
Access 2007 Liste déroulante avec case à cocher
[Outlook 2007] Rechercher un titre de pièce jointe
Tri avec Access 2007
Problème avec Access 2007
Piece jointe avec eudora5
Mail delivery system avec Outlook 2007
Publipostage courriel avec une pièce jointe...
Envoyer un fichier par mail en pièce jointe
Plus de sujets relatifs à Envoie Mail avec piece jointe ACCESS 2007
 > Tous les forums > Forum Bureautique