Envoie d'email via Excel Session verrouillée

Version imprimable

01/01/2008, 18h31
mennix

Envoie d'email via Excel Session verrouillée

Bonjour, je rencontre un nouveau probleme avec Excel et outlook.

Depuis office 2003, il est impossible d'envoyer un email outlook via Excel sans rencontrer une fenetre nous demandant de confirmer l'envoi.
La dessus, aucun soucis, il existe un soft ClickYes ou encore Sendkeys.
Mon probleme se situe qd ma session est verrouillé.
En effet avec clickYes ou SendKey cela ne marche plus, car il faut que la bonne fenetre soi active, or session verrouillé seul la fenetre identification est active, et impossible d'activer une autre.

J'ai réecris Clickyes en delphi, pensant faire mieux, mais , je me heurte au meme souci.
Y a t'il une facon d'envoyer un email en automatique avec une session verrouillée ?
Merci a vous
t
01/01/2008, 19h42
kiki29

Re, peut être avec http://excel.developpez.com/faq/?pag...ailCDOexchange, sur un PC "perso" cela marche sans probleme, sur un PC "Entreprise" c'est à vérifier

Merci, c'est exactement ce que je souhaitais., cela marche tres bien en entreprise ou à la maison.
Il faut tout de fois rajouter des infos pour assurer le bon fonctionnement

si cela peut servir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub bb()
Dim objEmail As Object
 
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "qui envoie email"
objEmail.To = "destinateur email"
objEmail.Subject = "Sujet: balbalblaba"
objEmail.TextBody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
objMessage.AddAttachment "c:\tonfichier.txt"
 
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Utilisateur du compte"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Mot depasse"
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
           "smtp.mail.yahoo.fr" 'Par exemple si c'est un compte yahoo 
objEmail.Configuration.Fields.Item _
      ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Fields.Update
 
objEmail.Send
End Sub

re
Je vous donne le code source en delphi du module qui fonctionne comme ClickYes, l'avantage de la source, on s'est vraiment ce qu'il ya dedans.

je pense que c'est facilement adaptable sous VB.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
function nom (win:hwnd):string ;
var l: byte;
s:string ;
begin
l:=sendmessage(win,wm_getText,255,longint(@s[1]));
 
s[0]:=chr(l);
nom:=s;
end;
 
(*Module principal*)
 
 wnd:=gettopwindow(0);
 
    while not (wnd=0) do
     begin
     if (nom(wnd)='Microsoft Office Outlook') and (IsWindowEnabled(getdlgitem(Wnd,$12A6))) then
      begin
      Sendmessage(getdlgitem(Wnd,$12A6),Bm_click,1,0);
      GetWindowRect(getdlgitem(wnd,$12A6),r);
      setactivewindow(getdlgitem(wnd,$12A6));
      SetCursorPos(r.left,r.top);
      Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
      Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
      enddialog(dlg,0);
 
      end;
     wnd:=getnextwindow(wnd,gw_Hwndnext);
    end;

Si ca peut service.
byeybe