Référencer chaque mail envoye

[botk62]

bonjour a tous

je vends sur internet dans ma société mais en réponse a une demande faites par mail.

je souhaiterai pouvoir réferencé chaque mail répondu, lorsque que je repond a un mail il prend dans l'objet la reference 1 le second 2 ainsi de suite

j'espere avoir été clair et que vous pourrez m'aider

Merci

[Oliv-]

Salut,
et tu bloques sur quoi ?

[Dolphy35]

Salut,

désolé mais je n'ai rien compris, peux-tu être plus clair, merci.


Dolphy

[botk62]

bon je vais essayer d'etre plus clair

je voudrais donné un numéro a chaque mail que j'envoi
ce numéro doit se mettre dans l'objet du mail que j'envoi

ex je reçois un mail de demande de piece je répond que la piece et disponnible
et dans mon mail de réponse il faut qu'il y est un numéro, ce numéro augmentrer de 1 a chaque nouvelle reponse

tout ca dans le but de retrouver plus facilement les commandes

merci

[Oliv-]

Salut,
Pour ma part j'avais bien compris , cependant tes explications n'apportent pas vraiment d'éléments ...

Tu peux utiliser une variable globale et un fichier texte qui va stocker la dernière valeur donnée ainsi que l'événement item_send

PUBLIC NUMERO as integer
' a chercher dans un fichier
set NUMERO = 1
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
NUMERO =NUMERO +1
' a enregistrer dans le fichier
item.subject = "[" + NUMERO + "]"+ item.subject 
 
End Sub

Pour le fichier voici une exemple de Eric RENAUD trouvé sur internet

Lire et incrémenter un fichier INI
Ce programme permet d'incrémenter un fichier increm.ini et de récupérer
la valeur contenue dans ce fichier. Arrivé à 1000, le compteur est réinitialisé à 1.
Structure du fichier increm.ini
[Numero]
NUMERO=4

 
'Ne pas oublier de copier les deux lignes qui suivent en tête de votre module.
'© Eric RENAUD 
'http://ericrenaud.fr/droitefichiers.htm
 
Declare Function GetPrivateProfileStringA Lib "Kernel32" (ByVal lpAppName As _
String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString _
As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Declare Function WritePrivateProfileStringA Lib "Kernel32" (ByVal lpAppName _
As String, ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Long
 
Sub IncrémenteIni()
Dim Compteur As String * 10
GetPrivateProfileStringA "Numero", "NUMERO", 1, Compteur, 10, "C:\Windows\Increm.ini"
WritePrivateProfileStringA "Numero", "NUMERO", CStr(CLng(Compteur) + 1), _
      "C:\Windows\Increm.ini"
MsgBox "Le compteur est incrémenté à : " & Compteur & "."
If Compteur = 1000 Then
      MsgBox (" La valeur de 1000 est atteinte. Remise à 1 du compteur.")
      Compteur = 1
WritePrivateProfileStringA "Numero", "NUMERO", CStr(CLng(Compteur)), _
      "C:\Windows\Increm.ini"
End If
End Sub