Discussion :

[LotfiB]

Bonsoir
je voudrai envoyer des emails contenus sur une colonne de feuille Excel avec comme titre et body ce qu'il y a sur une autre colonne (parce que Moodle ne fait pas d'envoi automatiques de login qd on enregistre de nouveaux utilisateurs... enfin passons pour Moodle).
Alors j'ai lu et cherché du VBA et j'ai vu sur :
http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub envoiPlageCellules_Excel2002() 
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644 
Worksheets("Feuil1").Range("A1:B5").Select ' la plage de cellules à envoyer 
ActiveWorkbook.EnvelopeVisible = True 
With Worksheets("Feuil1").MailEnvelope 
    .Introduction = "bonjour , ci joint les données ..." 
    .Item.To = "destinataire@mail.fr" 
    .Item.Subject = "le sujet" 
    .Item.attachments.Add "C:\dossier\ma piece jointe.txt" 
    .Item.Send 
End With 
End Sub

dès que j'esaye de toucher à ActiveWorkbook.EnvelopeVisible = True ou au mailenveloppe, ça génère une erreur
est ce qu'il y a une protection ou niveau de securité ?
j'arrive à exécuter la macro (selection de celluleà mais pas de mail enveloppe.
Merci pout tte aide
Lotfi

[SilkyRoad]

bonsoir

Quelle erreur?

Tu disposes bien d'Excel2002 (ou ultérieur) ?


michel

[LotfiB]

bonsoir

Quelle erreur?

Erreur d'executiopn 1004
La methode EnveloppeVisible de l'objet _Workbook a échoué

sur
ActiveWorkbook.EnvelopeVisible = True

ou sur

Tu disposes bien d'Excel2002 (ou ultérieur) ?


michel

excel 2003 SP2

[SfJ5Rpw8]

et si sous excel tu clique sur l'enveloppe "Message electronique" dans la barre d'outils standard ..?

[LotfiB]

je ne l'ai pas, c'est ptt ça le pb
où est ce que je devrais voir ce menu exactement ?
ça ressemble à quoi ?

[SfJ5Rpw8]

menu fichier /envoyer vers destinataire

[LotfiB]

il lance eudora et lui donne un ficher attaché correspondant à mes feuilles...

[SfJ5Rpw8]

c'est bien l'option Destinataire... et pas Destinataire du message (en tant que piece jointe)
?

[LotfiB]

eh ben ,j'ai pas destinataire toute seul
"y a destinataire pour revisoin"

[SfJ5Rpw8]

? alors c'est peu-être du au fait que tu utilise Eudora et pas Outlook comme-moi ....?

[LotfiB]

j'ai outlook installé, j'utilise pour mon pocketpc et agenda mais pas pour le mail
je vais voir s'il estr configuré pour envoyer des mails

[SfJ5Rpw8]

le lien mis en commentaire dans le code :
http://support.microsoft.com/default...b;en-us;816644

Note This code only works with Microsoft Outlook. It does not work with any version of Microsoft Outlook Express.
Replace E-Mail_Address_Here with the e-mail address that you want to send the range to.

[LotfiB]

j'ai cree un compte de mail ds outlook et me suis envoyé un mail
mail que j'ai reçu
masi tjrs pas d'icone (reboot nécessaire ?)

ciao

[LotfiB]

ok ceci marche pour envoyer les loggins/pw de connexion aux utilisateurs de mon forum mais j'ai 2 pbs :
1. il faut que outlook soit messagerie par defaut :-( c'est ça qui bloquait hier...
2. il met 5 sec à chaque msg pour attendre confirmation manuelle, je suppose que c'est pour eviter les faiseurs de spam... y a moyen de contourner ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub BTsendmails_Click()
'il enverra les emails
'MsgBox ("Je vais envoyer les mails")
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
debut = 3
Do
    myusername = Worksheets("inscrits 1A").Cells(debut, 1)
    If myusername = "" Then Exit Do
    mypw = Worksheets("inscrits 1A").Cells(debut, 2)
    myemail = Worksheets("inscrits 1A").Cells(debut, 6)
 
    Worksheets("inscrits 1A").Range(Worksheets("inscrits 1A").Cells(debut, 1), Worksheets("inscrits 1A").Cells(debut, 2)).Select ' la plage de cellules à envoyer
    ActiveWorkbook.EnvelopeVisible = True
    With Worksheets("inscrits 1A").MailEnvelope
        .Introduction = "Bonjour , ci joint votre loggin et mot de passe "
        .Item.To = myemail
        .Item.Subject = "Connexion au forum LIE CNED"
        .Item.Send
    End With
    debut = debut + 1
Loop
End Sub

[LotfiB]

En C++ bds 2006 ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ExcelApplication1->Connect();
 ExcelApplication1->set_Visible(true,true);
 OleVariant FileName=EditFichier->Text;
 ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Open( FileName));
 ExcelWorksheet1->ConnectTo(ExcelApplication1->Worksheets->get_Item(TVariant("inscrits 1A")));
 do{
  myrange=ExcelWorksheet1->get_Range((OleVariant)("A"+IntToStr(debut)));
  myusername= (String)((TVariant)myrange->get_FormulaR1C1());
  if ( myusername=="" || debut>500) break;
  myrange=ExcelWorksheet1->get_Range((OleVariant)("B"+IntToStr(debut)));
  mypw= (String)((TVariant)myrange->get_FormulaR1C1());
  myrange=ExcelWorksheet1->get_Range((OleVariant)("F"+IntToStr(debut)));
  myemail= (String)((TVariant)myrange->get_FormulaR1C1());
  Memo1->Lines->Add( AnsiString(myusername) +" "+ mypw +" "+myemail);
  debut++;
  } while(1);

mais je ne sais pas encore envoyer