[R] Send arrobase

[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 ##################################

[jbnh]

Bonjour,

Essaye ceci voir si ça marche :

Code : Tout sélectionner

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

[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

[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

[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

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.