Discussion :

[Thotho-Maxime]

Bonjour à tous!

Actuellement en stage de fin de première année d'école d'ingé, je suis chargé de monter une base client dans le but d'un emailing style newsletter. Grâce à l'aide des différentes personnes de ce forum, j'ai répondu à la plupart de mes questions et bien avancé dans mon mini-projet

Cependant, il me reste certaines choses à comprendre! Je suis arrivé à ce code, qui me permet de préremplir un mail, lancer Outlook sous Access, et afficher le mail préparé donnant la main à l'utilisateur pour toutes modifications!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Compare Database
Option Explicit
 
'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Private oMail As Outlook.MailItem
Private oApp As Outlook.Application
Private bolFin As Boolean
Sub RealisationEnvoi()
Set oApp = New Outlook.Application
Dim oDB As DAO.Database
Dim strContenu As String
Dim oRst0 As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim strTo As String
Dim sqlMail As String
'Instancie Outlook
Set oDB = CurrentDb
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
sqlMail = "SELECT  * FROM TableMessage;"
Set oRst0 = oDB.OpenRecordset(sqlMail)
oRst0.MoveLast
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = oRst0.Fields("txtCorps")
oMail.Subject = oRst0.Fields("strObjet") & " du " & oRst0.Fields("dtCrea")
'Ouvre un recordset sur les clients
Set oRst1 = oDB.OpenRecordset("SELECT * FROM InfosClients")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst1.EOF
    strTo = strTo & oRst1.Fields("E-mail") & "; "
    oRst1.MoveNext
Wend
'Supprime la dernière virgule
oMail.Bcc = Left(strTo, Len(strTo) - 2)
oMail.Display
End Sub

J'ai déjà regardé les tuto concernant l'ajout de pièces jointes et l'html mais j'ai du mal... Mon but? Arriver à ajouter une petite phrase: "venez voir notre site: ICI!" où ICI envoie vers une adresse internet, ET ajouter via Access différentes pièces jointes (dont bien sur je connais les adresses sur mon PC).

Voila merci d'avance à ceux qui se pencheront sur mon problème!

Maxime.

Ps: question de base: comment fait-on pour créer un bouton qui déclenche un module sur un formulaire?

[fgiambelluco]

Bonjour
Pour ce qui est des pièces jointes voila le code à utiliser pour rajouter des pièces au message

Code :

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

oMail .Attachments.Add Pj 'pj = fichier avec son chemin

pour le reste il faudrait que je regarde

par contre ça

Ps: question de base: comment fait-on pour créer un bouton qui déclenche un module sur un formulaire?

j'ai pas compris

[Thotho-Maxime]

Ok pour la commande. Y a-t-il un moyen de permettre à un utilisateur de changer l'adresse "Pj" (donc changer de fichier joint) à l'aide d'un browser ou autre?

Sinon, comment fait-on pour créer un bouton qui déclenche un module sur un formulaire? En gros, comment fait-on pour utiliser un module? Est-il possible sur un Menu de créer un bouton, qui quand on clic dessus lance le module!

Merci de ta réponse rapide

[Thotho-Maxime]

Code :

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

oMail .Attachments.Add D:\Documents and Settings\mMeunier\Mes documents\Fichiers Excel Base stage\200906-FORMATION-F1.xls

Ca ne marche pas...

Je repose ce que je veux faire pour clarifier:
- Insérer du une adresse internet sous un mot "ICI".
- Insérer des pièces jointes (On connait l'adresse mais si possible, Access devra demander l'adresse. Par exemple, un bouton qui ouvre un browser ou au moins un bouton qui demande à l'utilisateur l'adresse des fichiers).

Si vous ne voyez pas je peux vous screen mes différents problèmes

[Thotho-Maxime]

Re-bonjour,

Je repose mon problème et up mon post.

Reclarication:

J'ai une table message qui me permet de définir le mail que je veux envoyer. Dans ce mail, donc dans le champ Corps_du_mail, j'ai une phrase: "Vous pouvez consulter notre site Web ici". J'aimerais que ICI redirige sur le site web en question (je rappelle que mon automation Outlook s'arrète sur la page de création du mail sur Outlook donc je pourrais certes rajouter le lien hypertexte à ce moment mais j'aimerais qu'il y soit déjà).

Ensuite, je veux ajouter 2 pieces jointes mais je ne connais pas la commande (je pense stocker les adresses de mes fichier joints dans un champ de la table mail, il me faudrait donc une commande qui ajoute le contenu du champ Pièces_Jointes).

Voila, j'espère que vous allez m'aider !