mail auto access

**pascalblois** · 09/04/2009, 12h56

Bonjour a tous .
Je souhaite envoyé un mail via outlook 2000 et access2000 a un interval regulier , par ex tous les 7 jours .
J'ai donc un bouton avec un code dans access , plus clicyes.exe pour le probleme de message outlook , par contre je ne sais pas comment faire et je ne trouve pas l'info pour que cette operation ce fasse tous les 7 jours ; Je dois faire un code dans access ou outlook , merci de votre aide .

mon code :
-----------------------------

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
Private Sub Command75_Click()
On Error GoTo Err_Command75_Click
 
 
    Dim stDocName As String
 
    stDocName = "Liste des actions en retard"
    DoCmd.SendObject acReport, stDocName, acFormatXLS, _
    "pascal@toto.com", "", , _
    "Actions en retard", "Ci joint la liste des actions en retard", False  
 
 
 
 
Exit_Command75_Click:
    Exit Sub
 
Err_Command75_Click:
    MsgBox Err.Description
    Resume Exit_Command75_Click
 
End Sub

**Jean-Philippe André** · 09/04/2009, 15h30

Bonjour,
le mieux reste de stocker dans une table la date du dernier envoi par exemple.
Tu vérifies avant l'envoi qu'il y a bien eu 7 jours minimum écoulés depuis le précéndet envoi, et tu mets la date à jour une fois ce mail envoyé.

Autre possibilité : vérifier que le jour du lancement correspond bien à celui spécifié (exemple tous les vendredi seulement).

**pascalblois** · 09/04/2009, 16h51

bonjour ,
houla , cela se complique , je ne sais pas dutout comment faire ...
je pensais qu'il etait possible de metre un truc comme un timer qui calcule le delai pour l'envoi

**Jean-Philippe André** · 09/04/2009, 16h55

l'idée du timer serait possible mais pas sur des périodes aussi longues

tu créées juste une table _PARAM_ dans laquelle tu stockes
- un intitulé
- une valeur

tu vas chercher avec Dlookup()
et c'est bon

**pascalblois** · 09/04/2009, 17h08

ok , et dans ma table l'intitule correspond a quoi ? meme chose pour la valeur ?
et donc apres je case Dlookup() dans mon code d'origine ?

**Jean-Philippe André** · 09/04/2009, 17h25

intitulé c'est le nom du paramètre
valeur, ben sa valeur

exemple :
table : _PARAMS_
intitule = 'LastLaunch'
valeur = '01/04/2009'

Code :

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

1
2
3
4
5
6
7
8
9
Dim stDocName As String
 If Cdate(Dlookup("valeur","_PARAMS_","intitule='LasLaunch'")<Now()-7 Then
    stDocName = "Liste des actions en retard"
    DoCmd.SendObject acReport, stDocName, acFormatXLS, _
    "pascal@toto.com", "", , _
    "Actions en retard", "Ci joint la liste des actions en retard", False  
Else
MsgBox "dernier message envoyé il y a moins de 7 jours"
End if

**pascalblois** · 09/04/2009, 17h51

ok , donc je cree une table avec 2 colonnnes ( intitule et valeur ) dans la case de la colonne intitule je mets :'lastlaunch' et dans la case de la colonne intitulé , je mets une date . ...?
Puis je reecris mon code comme dans ton ex ???

question , la date de la colonne valeur , je dosi la changer a chque fois ? si par ex je veux que cela soit tous les 7 j , ou c'est le code que remets les dates a jours ?

**Jean-Philippe André** · 09/04/2009, 18h56

oui exactement,
tu mets à jour la date une fois ton mail envoyé.

**pascalblois** · 14/04/2009, 09h28

Bonjour,
existe il une facon d'avoir la mise ajour de la cette date en auto , ala place d echanger la date toutes les semaines ?

**Jean-Philippe André** · 14/04/2009, 09h42

Salut,
Quelle différence y vois-tu ? La mise à jour sera automatique, vu que tu la feras après chaque envoi de mail

**pascalblois** · 14/04/2009, 09h43

ok , j'ai donc fait tous ce qui est dit .. cela fonctionne , mais je voudrais que cela ce fasse automatiquement , comme par ex avec un timer , ou un code dans windows en tache planifier ...et la je bloque encore

**pascalblois** · 14/04/2009, 11h12

Quel est le code pour faire un fichier batch (vbs ) sachant que j'ai ecrit une macro ( qui s'appelle email) dans ma base access .
merci

**Jean-Philippe André** · 14/04/2009, 11h17

pour lancer une macro depuis un batch, tu as une syntaxe comme ceci :

Code :

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

Start /WAIT msaccess.exe "C:\temp\bd1.mdb" /x Macro1

ici tu remplaces le path de la base d'une part, le nom de la macro d'autre part

**pascalblois** · 14/04/2009, 11h35

ok j'ai essayer ,
j'ai tout simplement copier cette ligne de code ( en mettant mes données )

mais j'ai un petit message d'erreur
en ligne 1( bah vi j'ai que 1 ligne )
syntaxe erreur
800A03EA

je suis en access 2000 , je c pas si c'est important

important , quand je lance cette ligne de commande via commande pront , ceal semble ouvrir access 95 et j'ai un message out of memory....

**Jean-Philippe André** · 14/04/2009, 11h45

d'accord,
il faut changer la version de l'access lancé (tu dois en avoir plusieurs versions sur ta machine.

Code :

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

Start /WAIT msaccess.exe "C:\temp\bd1.mdb" /x Macro1

en

Code :

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

Start /WAIT "C:\Program Files\Microsoft Office\OFFICE10\msaccess.exe" "C:\temp\bd1.mdb" /x Macro1

**pascalblois** · 14/04/2009, 12h15

Ok maintenant avec la cmd pront , cela ouvre bien mon fichier mais apparemment cela ne lance pas la macro.... et quand je clic sur mon fichier vbs j'ai encore le meme message d'erreur !!!!!

je viens de faire un petit test avec la macro fermeture , et la aussi il se passe rien , pour info ma base s'ouvre par defaut sur un form...

**Jean-Philippe André** · 14/04/2009, 14h18

peux-tu me montrer le contenu de la macro email, ainsi que ta ligne batch stp ?

**pascalblois** · 14/04/2009, 16h08

Pour le code du vbs :

Start /WAIT "C:\Program Files\Microsoft Office\office10\msaccess.exe" "C:\Documents and Settings\tb\Desktop\Plan d'actions QA 1.mdb" /x email

par contre pour la macro , j'ai utilisé "macro " de objet dans access et remplis les champs apres avoir choisi la cmd "sendobjet" .
et cela fonctionne si je fais run .

**Jean-Philippe André** · 14/04/2009, 16h28

je n'avais regardé si ce code tournait depuis un vbs

j'étais resté sur un fichier .bat

peux-tu me montrer ce que donne la transformation de la macro en VBA stp ?

**pascalblois** · 14/04/2009, 16h45

heu , je suis pas doué , mais pour mon ficheir vbs , j'ai mis la meme chose ....
rien avant , rien apres ... forcement ..
Mais peut etre que je peux faire un bat ( c plus simple ) , mais je c pas comment on fait ca ..

Heu je sais faire un bat ...enfin je crosi , j'ai save as mon vbs en .bat
par contre je viens de tester et cela ne fonctionne pas non plus

mail auto access [AC-2000]

Access

Discussions similaires

Partager

Partager