rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Aide pour Script VBS

Majo07, le vendredi 31 août 2007 à 15:03:48
Bonjour,

J'utilise un petit script que j'ai récupéré sur le net pour automatiser l'envoi d'un email par un simple clic.
____________________________________________________________­_____________________

' Envoi automatique d'un message avec fichiers joints.
' Nécéssite Windows 2000/XP ou une installation
' Microsoft Office (Outlook).
' JMST@ & Paskal & Mithrandir
' WWW.FAQOE.COM
'
On Error Resume Next
With CreateObject("CDO.Message")
If Err Then
MsgBox "CDO non installé"
Else
.From="adresse expéditeur"
.To="adresse destinatairer"
.Subject="Essai email automatique"
.TextBody="Bon pour essai envoi email automatique JR"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
'
'
'Le script est crée automatiquement, mais les éventuelles
'erreurs de syntaxe d'adresses, ou de format de mail ne
'sont pas corrigées.
'Attention aux guillements dans le corps du message.
'
______________________________________________________________________________________

Je ne pratique absolument pas la programmation et donc voici ma question qui pour vous va vous paraître bien ridicule :

Dans la partie" TextBody=" je veux que le texte du message soit mis en forme avec des retours à la ligne, voire des sauts de lignes et je ne sais comment faire.
Ex :
Bon pour essai envoi email automatique
Cordialement
JR
Si je les rentre par le simple appuis sur la touche retour du clavier, lorsque je clic sur le script j'ai un message d'erreur et il ne fonctionne pas.
Si une bonne âme pouvait me donner la technique, je l'en remercie par avance
Configuration: Windows Vista
Firefox 2.0.0.6
Répondre à Majo07  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Chacual, le vendredi 31 août 2007 à 15:12:55
Et si tu mets un backslash (\) avant chaque retour à la ligne de ton message ça fait quoi ?
Répondre à Chacual

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Majo07, le vendredi 31 août 2007 à 16:09:56
Merci pour ta réponse, mais je viens de faire des essais en inscrivant :

TextBody="Bon pour essai envoi email automatique\ Cordialement\ JR"

TextBody="Bon pour essai envoi email automatique\Cordialement\JR"

TextBody="Bon pour essai envoi email automatique\
Cordialement\
JR"

Et aucune des trois formules ne marchent

Peut etre une autre idée ???
Majo 07
Configuration: Windows Vista
Firefox 2.0.0.6
Répondre à Majo07

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Chacual, le vendredi 31 août 2007 à 16:11:50
Et en faisant :
TextBody="Bon pour essai envoi email automatique\r\n Cordialement \r\n JR"
Tu reçois ton mail comment ?
Répondre à Chacual

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Majo07, le vendredi 31 août 2007 à 16:16:13
comme ceci :

Bon pour essai envoi email automatique\r\n Cordialement \r\n JR

C'est pas vraiment le but recherché, le retour à la ligne n'apparaît pas.

Majo 07
Configuration: Windows Vista
Firefox 2.0.0.6
Répondre à Majo07

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le vendredi 31 août 2007 à 16:47:33
Bonjour,

Dim strTexte

strTexte = ""
strTexte = strTexte & "Bon pour essai envoi email automatique" & chr(13)
strTexte = strTexte & "Cordialement" & chr(13)
strTexte = strTexte & "JR"
.TextBody = strTexte

******

Lupin
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Lupin.A

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Majo07, le vendredi 31 août 2007 à 17:21:25
Merci beaucoup Lupin

Effectivement maintenant çà marche.

Je venais juste de trouver ceci aussi qui fonctionne également :

.TextBody="Bon pour essai envoi email automatique." & vbCrLf & "Cordialement" & vbCrLf & "JR"

Mais je ne peux insérer qu'un seul retour à la ligne.

Par contre avec ta formule je peux en faire 2 pour que cela soit plus esthétique.

Encore merci à vous deux Majo 07
Configuration: Windows Vista
Firefox 2.0.0.6
Répondre à Majo07

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Majik, le vendredi 31 août 2007 à 18:42:10
Salut
Pourquoi vous n'ustilsez pas un espace entre 1 vbcrlf
exemple:

.TextBody="Bon pour essai envoi email automatique." & vbCrLf & " " & vbCrLf & "Cordialement" & vbCrLf & " " & vbCrLf & "JR"

Majik
Configuration: Windows XP
Internet Explorer 7.0
Répondre à Majik

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Lupin.A, le vendredi 31 août 2007 à 19:19:57
re :

.TextBody="Bon pour essai envoi email automatique." & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "JR"

.TextBody="Bon pour essai envoi email automatique." & vbLf & vbLf & "Cordialement" & vbLf & vbLf & "JR"

.TextBody="Bon pour essai envoi email automatique." & chr(13) & chr(13) & "Cordialement" & chr(13) & chr(13) & "JR"

sont toutes des manières de répondre a ton besoin.

Lupin
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Lupin.A
Discussions pertinentes trouvées dans le forum
13/03 11h52Erreur 3 [script.vbs]1
10/10 22h19Comment utiliser un script VBS3
02/10 09h45Script VBS + RetourCharriot2
31/08 15h03Aide pour Script VBS8
28/06 14h22Script Vbs et formulaires dans IE1
Plus de discussions sur « Script en VBS »
Logiciels pertinents trouvés dans les téléchargements
Télécharger All In One Video Script 1.0All In One Video Script - All In One Video Script est un script pour l'extension GreaseMonkey pour le navigateur Firefox permettant de détecter la...Catégorie: Vidéo
Licence: Freeware/gratuit
Télécharger GreaseMonkey 0.8.20080609.0GreaseMonkey - GreaseMonkey permet de bidouiller à la volée les pages web que vous consultez. C'est à dire qu'il va modifier la page...Catégorie: Extensions Firefox
Licence: Open Source
Télécharger iTunes 7.7.1iTunes - iTunes est un lecteur multimédia gratuit proposé par Apple, permettant d'organiser sa musique, de synchroniser son lecteur...Catégorie: Podcasting/Streaming
Licence: Freeware/gratuit
Télécharger Ghostscript Viewer 4.9Ghostscript Viewer - Le programme original pour visualiser les documents au format PostScript (fichiers portant l'extension . PS ). Il peut...Catégorie: Postscript (PS)
Licence: Open Source
Plus de logiciels gratuits sur « Script en VBS »