Macro avec mail automatique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro avec mail automatique

stayssou

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.

Publicité

rufo

Pas me confondre avec Lycos!

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

rufo

Pas me confondre avec Lycos!

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

rufo

Pas me confondre avec Lycos!

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);

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro avec mail automatique

Sujets relatifs
Macro cpier/coller differents onglets	[JavaScript] List deroulante liée ave un remplissage automatique
macro dans power point. Qui sait ?	Mail avec piece jointe fontion parcourir
probleme sur replace dans une macro	télécharger un fichier CSV d'une manière automatique
Generer un mail avec pj pour chaque destinataire	Batch création automatique dossier (xcopy)
Ping+Mail	[AIDE] code HTML/PHP formulaire avec envoi mail automatique
Plus de sujets relatifs à : Macro avec mail automatique

Page générée en 0.086 secondes