Alarme dans Access

Alarme dans Access - VB/VBA/VBS - Programmation

Marsh Posté le 30-07-2008 à 03:05:41    

 :hello: Bon matin
 
Besoin d'aide dans une base de donnée  Access
J'ai fait une base de données pour clients avec plusieurs champs.
J'ai un champ nommé date de naissance, je voudrais avoir une alrme me donnant un alrme par courrier (le mien) 10 jours avant la date inscrite.
 
Attention j'en suis à mes débuts avec Access , donc peu de connnaissance.
Besoir de formule en exemple.
 
 :bounce:

Reply

Marsh Posté le 30-07-2008 à 03:05:41   

Reply

Marsh Posté le 30-07-2008 à 15:59:48    

Bonjour
 
Il faut deja savoir a quel moment tu vas regarder les dates d'anniversaire. Sur ouverture d'un formulaire, de la base etc.
Ensuite si tu ouvres 20 fois, il ne faut pas que tu envoies 20 fois le mail...
 
Ensuite, pour envoyer un mail "simplement" si tu as un compte free tu peux utiliser une ligne php dans ie
 
Mais il va falloir coder un peu me semble t il
 
 
Tu te créés un fichier courriersmail.php sur un site à toi :  

Citation :

<html>
<?php
     
     $headers ='From: <'.$mailfrom.'>'."\n";  
     $headers .='Reply-To: toto@toto.fr'."\n";  
     $headers .='Content-Type: text/html; charset="iso-8859-1"'."\n";  
     $headers .='Content-Transfer-Encoding: 8bit';  
 
 
$formMail = str_replace(array("\r", "\n" ), '', $str);
 
 
 
$message_html='<html>  
     <head>  
     <title>Titre</title>  
     </head>  
     <body>STYLE type="text/css">
     P{
     text-align:justify;
     }
     </STYLE>'.$mailcorps.'</body>  
     </html>';  
echo $message_html;
 
 
 
  if( mail($formMail,$mailtitre,$message_html,$headers) ){
    echo 'les informations on bien été envoyées';
  }
  else{
    echo 'une erreur est survenue';
  }    
 
?>
</html>


 
Ensuite tu créés ta fonction qui envoi le mail :

Citation :

Function envoyer()
 
Dim mailto As String
Dim mailfrom As String
Dim mailtitre As String
Dim mailcorps As String
Dim mailreq As String
 
mailto = 'Mail Destinataire
mailtitre = 'Titre du mail
mailcorps = 'Corps du texte
 
mailreq = "http://AdresseVersTonSite/courriersmail.php?str=" & mailto & _
"&mailfrom=" & mailfrom & "&mailtitre=" & mailtitre & "&mailcorps=" & mailcorps
 
ExVal = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & mailreq) ', vbHide)
 
End Function
 


 
 
N'hesites pas si tu as des questions.
 
Cordialement


Message édité par SuppotDeSaTante le 30-07-2008 à 16:10:34

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed