Macro avec mail automatique

Marsh Posté le 09-04-2014 à 11:31:23

Bonjour à tous,

J'aimerais pouvoir faire une macro sous Excel qui enverrai un email automatiquement dès qu'une cellule atteint une certaine valeur.

Je m'explique : j'ai un fichier Excel qui gère les stocks de fourniture . J'aimerais que dès que la cellule avec le stock restant devient infèrieur à 2 par exemple, Excel envoi un mail automatiquement.
Je suis débutante en matière de macro et je ne m'en sort pas.

Merci d'avance pour d'éventuelles pistes.

Reply

Marsh Posté le 09-04-2014 à 11:31:23

Reply

Marsh Posté le 09-04-2014 à 12:56:04

J'avais fait une macro Excel qui envoyait un mail via LotusNotes en passant par le composant OLE.
Si tu es sûr de l'environnement d'exécution et que tu sais quelle messagerie est dispo (Outlook, Thunderbird...) sur le poste où sera exécutée la macro, tu peux tenter ça.

Autre solution que j'avais fait aussi. Tu héberges un script php (ou Python, asp, Perl...) sur un serveur web accessible depuis les postes clients où sera exécutée la macro et tu fais une requête sur l'url du script (de type GET donc) et c'est le script qui se chargera d'envoyer le mail

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Reply

Marsh Posté le 09-04-2014 à 12:58:47

Pour LotusNote :

Code :

'Plus d'envoi de mail car plus de Lotus Notes : maintenant, le fichier est monitoré par CJA 
            'On envoie une notification pour dire que le fichier de référence a été modifié 
            'ouvre une session mail Lotus Notes et configure le mail à envoyer 
            'Set oSession = CreateObject("Notes.NotesSession" ) 
            'Set oDB = oSession.GetDatabase("", "" ) 
            'Call oDB.OpenMail 
            'Set oDoc = oDB.CreateDocument 
            'Call oDoc.ReplaceItemValue("SendTo", "test@toto.fr" ) 'regler ici le nom du destinataire 
            'Call oDoc.ReplaceItemValue("Subject", "Fichier modifié!" ) 
 
            'Le corps du mail 
            'Set oRichTextItem = oDoc.CreateRichTextItem("Body" ) 
            'sMsg = "Le fichier a été modifié. Il faut le publier." & vbCrLf & vbCrLf 
            'Call oRichTextItem.AppendText(sMsg) 
 
            'envoi 
            'oDoc.SaveMessageOnSend = True 
            'Call oDoc.Send(False) 
            'Set oSession = Nothing

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Reply

Marsh Posté le 09-04-2014 à 13:02:45

Via un script php :

Code :

Set oHttp = CreateObject("MSXML2.XMLHTTP" ) 
sUser = Environ("Username" ) 
sURL = "http://serveur/MailMacroExcel/Sendmail.php?username=" & sUser 
     
oHttp.Open "GET", sURL, False 
oHttp.Send 
sHTML = oHttp.responseText 
     
Set oHttp = Nothing

Et dans le fichier php, tu fais un truc du genre :

Code :

$Username = '';
  if ((isset($_GET['username'])) && (!empty($_GET['username'])))
  {
      // Name of the user who has modified the file
      $Username = strip_tags(trim($_GET['username']));
  }
 
  // Header of the e-mail
  $To = 'test@toto.fr';
 
  $Subject = "MAJ du fichier!";
  $Splitter = "-----=".md5(uniqid(rand()));
 
  $Header = "MIME-Version: 1.0\r\n";
  $Header .= "Content-Type: multipart/mixed; boundary=\"$Splitter\"\r\n";
  $Header .= "From: serveur@toto.fr\r\n";
  $Header .= "\r\n";
 
  // Message texte
  $msg .= "--$Splitter\r\n";
  $msg .= "Content-Type: text/html; charset=\"iso-8859-1\"\r\n";
  $msg .= "Content-Transfer-Encoding:8bit\r\n";
  $msg .= "\r\n";
 
  $BodyMsg = "<html>\r\n<body>\r\n";
  $BodyMsg .= "Le fichier a été modifié.<br />\r\n";
  $BodyMsg .= "<br />\r\nIl faut le publier.<br />\r\n<br />\r\n";
  $BodyMsg .= "Le fichier a été modifié par : <em>$Username</em>.\r\n";
  $BodyMsg .= "</body>\r\n</html>\r\n";
 
  $msg .= "$BodyMsg\r\n";
 
  // End header
  $msg .= "--$Splitter--\r\n";
 
  mail($To, $Subject, $msg, $Header);

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Reply

Macro avec mail automatique

Sujets relatifs:

Leave a Replay