[VBA-E] email sur Excel, pb de protection ?

Version imprimable

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:

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

17/01/2007, 20h56
SilkyRoad

bonsoir

Quelle erreur?

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

michel
17/01/2007, 22h22
LotfiB

Citation:

Envoyé par SilkyRoad

bonsoir

Quelle erreur?

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

sur
ActiveWorkbook.EnvelopeVisible = True

ou sur

Citation:

Envoyé par SilkyRoad

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

michel

excel 2003 SP2
17/01/2007, 22h30
SfJ5Rpw8

et si sous excel tu clique sur l'enveloppe "Message electronique" dans la barre d'outils standard ..?
17/01/2007, 22h34
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 ?
17/01/2007, 22h40
SfJ5Rpw8

menu fichier /envoyer vers destinataire
17/01/2007, 22h49
LotfiB

il lance eudora et lui donne un ficher attaché correspondant à mes feuilles...
17/01/2007, 22h52
SfJ5Rpw8

c'est bien l'option Destinataire... et pas Destinataire du message (en tant que piece jointe)
?
17/01/2007, 22h59
LotfiB

eh ben ,j'ai pas destinataire toute seul
"y a destinataire pour revisoin"
17/01/2007, 23h01
SfJ5Rpw8

? alors c'est peu-être du au fait que tu utilise Eudora et pas Outlook comme-moi ....?
17/01/2007, 23h02
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
17/01/2007, 23h05
SfJ5Rpw8

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

Citation:

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.
17/01/2007, 23h07
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

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:

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

En C++ bds 2006 ça donne :

Code:

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