XL 2019 Envoi d'un mail sans passer par la messagerie

pat66

XLDnaute Impliqué
Bonjour le forum,

Je sais que ce sujet a été déjà abordé, mais pourriez vous me dire si il est possible qu'à l'ouverture d'un classeur, une macro se déclenche pour envoyer un mail qui précise l'username, la date et l'heure de l'ouverture du classeur.
Ce mail doit être envoyé sans que l'utilisateur s'en aperçoive, sans passer par Oulook par exemple

J'utilise le CDO, mais il faut que l'utilisateur paramètre son SMPT et son mot de passe pour passer par sa messagerie, ce que je voudrai éviter,

bien cordialement

Pat66
 

Efgé

XLDnaute Barbatruc
Bonjour @Hasco, @pat66

Si tu veux un fichier de statistique nul besoin du username ni de mail.
Tu peux créer un csv dans le même dossier que le classeur.
Une proposition qui crée le csv la première foi et qui ajoute la date et l'heure d'ouverture du classeur
A mettre dans le Thisworkbook du classeur source.
VB:
Private Sub Workbook_Open()
Dim FileNumber&, chemin$, Nom$

FileNumber = FreeFile
chemin = ThisWorkbook.Path
Nom = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
chemin = chemin & "\Log_" & Nom & ".csv"

Open chemin For Append As #FileNumber
    Print #FileNumber, Date & ";" & Time
Close #FileNumber
End Sub

Cordialement
 
Dernière édition:
C

Compte Supprimé 979

Guest
Bonjour le fil

Je rectifierai légèrement ce qui est dit, "ne nous voilons pas la face", en choisissant mes mots 😶‍🌫️
un employeur peut espionner un salarié sans l'avoir informé... MAIS il ne pourra pas se servir des informations obtenues contre lui 😜
 

dysorthographie

XLDnaute Accro


la frontière est ténue!

il faut également noter que toutes applications non comptable qui collecte des informations personnel doit faire l'objet d'une déclaration à la CNIL!
 
Dernière édition:

Discussions similaires

Réponses
22
Affichages
3 K