Page 1 sur 1

[R] Send arrobase

Posté : ven. 19 mars 2010 13:19
par ChaudLesNeurones
Bonjour,

pour l'aide j'explique

j'ai un script pour l'envoi d'un planning avec plusieur destinataire

j'ai mis
$J1="destinataire 1"
$J2="destinataire 2"
etc ... (il n'y en a que 10 dans mon example mais normalement il devrait y en avoir environ 100)

je voudrais que quand mon script a fini avec $J1 il passe a $J2 et ainsi de suite

mais il y a peut etre une autre solution je ne suis pas un pro du script et je suis partis la dessus :?

et ensuite pour le script tout ce passe bien sauf que "ben oui il y a un hic !!" quand autoit tape l'adresse mail dans outlook je n'arive pas a avoir l'arobase @ il me fait un truc bizare, il me supprime un caractere et ne tape pas le @ !! c'est dans le script

Merci pour votre aide.

Code : Tout sélectionner

    
;ENVOI PLANNING 



$J1= "pascal"
$J2= "mickael"
$J3= "eric"
$J4= "frederic"
$J5= "guillaume"
$J6= "julien@"
$J7= "dominique"
$J8= "benois"
$J9= "fabrice"
$J10= "maxime"






ShellExecute ("h:\plan2009.xls",""); ouverture du planning

Sleep (4500)

Send ("^f"); control f pour recherche utilisateur 


Sleep (800)
Send (""&$J1)
Sleep (400)
Send ("{ENTER}")
Sleep (400)
Send ("{tab 4}")
Send ("{ENTER}")

Sleep (400)
Send("+{DOWN 7}");selection des 7 jours
Sleep (400)
Send ("^c"); control c pour copier la selection 
Sleep (400)
WinClose ("Microsoft Excel - Plan2009.xls","")

;######################## ENVOI PLANNING VIA OUTLOOK #####################

Opt("SendKeyDelay", 50)  


ShellExecute ("outlook","")

WinWaitActive ("Boîte de réception - Microsoft Outlook",""); ouverture outlook
WinSetState("", "",@SW_MAXIMIZE)
Sleep (400)
Send ("^n"); ouverture nouveau message

WinWaitActive ("Message sans titre","")
Sleep (400)
Send (""&$J1&"@bureau.selfip.com")  ;   ######   ici j'ai un truc bizare : impossible de faire le " @ " il note pascalureau.selfip.com au mieux de noter pascal@bureau.selfip.com


send ("{tab 2}")
Send ("Planning")
send ("{TAB}")
Send ("^v"); copie de la selection excel

Sleep (400)
Send ("!v"); envoi du message 

WinClose ("Planning - Message","")


; ###################################### FIN ##################################

Re: [...] j'ai 1 petit soucies et demande d'aide pour le script

Posté : ven. 19 mars 2010 13:50
par jbnh
Bonjour,

Essaye ceci voir si ça marche :

Code : Tout sélectionner

$J1= "pascal"
Send ($J1&"{ASC 64}bureau.selfip.com")

Re: [...] j'ai 1 petit soucies et demande d'aide pour le script

Posté : ven. 19 mars 2010 13:57
par fred39
Bonjour,
si tu as 100 personnes, il faudrait mieux demander à ton script de lire dans un fichier texte
et faire une boucle
voir l'exemple ci dessous"
pour le "@" enlève le"" au debut ""&$J1&"@bureau.selfip.com"

Code : Tout sélectionner

$file=FileOpen(@ScriptDir&"\mon fichier.txt",0)
 if $file=-1 Then
     MsgBox(0,"erreur", "impossible d'ouvrir le fichier")
    Exit
EndIf

while 1
    $prenom= FileReadLine ($file)
    if @error =-1 Then ExitLoop
    Msgbox( 0,"procedure",$prenom&"@bureau.com")
Wend
 
bon courage :D

Re: [...] Send arrobase

Posté : ven. 19 mars 2010 16:13
par scorp84
Bonjour,

Pour tes envois, fais gaffe à ne pas envoyer trop de mails d'un coup car sinon tu peut vite te retrouver blak-listé chez ton fournisseur de mail.

Essaye peut être des lots de 10/15 maxi avec une pause de 15 secondes entre chaque envois.

Sinon, tu peux gérer la tempo en utilisant un serveur de mail comme QKSmtp.

Amicalement.

BM

[R] Send arrobase

Posté : ven. 19 mars 2010 19:46
par ChaudLesNeurones
merci pour les solutions

c'est tout a fait ce que je cherchais
quand a l'envoi des mail pas de soucis c'est le serveur smtp de la boite je peux voir avec l'admin

Re: [...] Send arrobase

Posté : mar. 06 avr. 2010 07:35
par Tlem
N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.