VBS= Analyse taille de dossier +Envoi de mail
Résolu
Lutano
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
Lutano Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Lutano Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBS= Analyse taille de dossier +Envoi de mail
- Comment réduire la taille d'un fichier - Guide
- Dossier appdata - Guide
- Afficher taille dossier windows - Guide
- Impossible de supprimer un dossier - Guide
- Vbs windows - Accueil - Optimisation
3 réponses
Bon,
Si j'ai bien compris, les tableaux sont remis a zéro lorsque je sort de ma boucle....
Existe t-il un moyen de passer à travers ??
Merci d'avance
Si j'ai bien compris, les tableaux sont remis a zéro lorsque je sort de ma boucle....
Existe t-il un moyen de passer à travers ??
Merci d'avance
Je continue mon monologue ;-)
Je devais avoir une erreur dans mon code mes variables s'affiche bien !!
Il me reste donc une seul question.
J'inscris tout mes résultats dans un fichier texte. Cependant je souhaiterai envoyer un mail en vbs avec le contenu du fichier txt dans le corps du message et non en piece jointe.
Il faut donc que j'integre l'envoi de mon mail dans une boucle FOR :
.From="MONMAIL"
.To="Les destinataire"
.Subject="Surveillance"
Do while not ftailleref.AtendOfStream
Mes executions
.TextBody=""&Serveur(i) &tail(i) ...
loop
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ServeurMail"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Portduserv
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
Je reçoit bien le mail mais seulement avec la valeur du dernier serveur, donc a chaque fois que le programme boucle il réécris sur les anciennes valeurs. (Meme avec une VBnewline)
Avez vous une astuce pour écrire sur la ligne du dessous ?
Je devais avoir une erreur dans mon code mes variables s'affiche bien !!
Il me reste donc une seul question.
J'inscris tout mes résultats dans un fichier texte. Cependant je souhaiterai envoyer un mail en vbs avec le contenu du fichier txt dans le corps du message et non en piece jointe.
Il faut donc que j'integre l'envoi de mon mail dans une boucle FOR :
.From="MONMAIL"
.To="Les destinataire"
.Subject="Surveillance"
Do while not ftailleref.AtendOfStream
Mes executions
.TextBody=""&Serveur(i) &tail(i) ...
loop
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ServeurMail"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Portduserv
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With
Je reçoit bien le mail mais seulement avec la valeur du dernier serveur, donc a chaque fois que le programme boucle il réécris sur les anciennes valeurs. (Meme avec une VBnewline)
Avez vous une astuce pour écrire sur la ligne du dessous ?
