Logo du forum
 

Forum TTH-News

| Inscription | | Recherche | | FAQ | | Accueil | | Liste des membres |
| Calendrier |
 
Vous n'êtes pas identifié! [Connexion] ou [Inscription] Forum » Programmation » [VB / VBA / VBS] » Excel et envoi de mail ?
Login Mot de passe

1 visiteurs sur ce topic (0 membre(s), 1 invité(s) )


Auteur
Sujet : Excel et envoi de mail ?
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
4711 (0.86 par jour)


Score :

Message du 15-07-2008 @ 17:25   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   


Bonjour,

Quelqu'un a t-il déjà programmé un envoi de mail à partir d'Excel ?

J'ai une feuille Excel avec à l'intérieur un bouton. Ce bouton active une macro qui envoie la feuille active en pièce jointe via Outlook. Le "problème" c'est qu'Excel, via la fonction xlDialogSendMail, m'ouvre Outlook. Il faut ensuite cliquer sur envoyer... J'aimerais envoyer le mail sans l'ouverture d'Outlook.

Des expériences en la matière ? :???:

Merci d'avance ;)
----------
PC1 : P7P55 Deluxe | i7 870 | 12 Go DDR3 1600 CL8 | GTX 670 OC | Dell U2713HM 27" | SSD 840 Pro 256 | Altec ATP3 | S12 550W | Lian Li PC-G7 | MX1000 - Illuminated keyboard | MG5250 - Freebox v5 + Cisco RV110W + Netgear WNHDB3004
PC2 : P5K Pro | E8400 + NH-U12P | RAM 4 Go | eVGA 460 GTX | 22" LG IPS225V-BN | SSD C300 64Go + 1To F1 | Z305 | S12 550W | 69U6 Noir | Roccat Kova[+]
PC3 : PC-Q07 | Intel DG41AN | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | SSD C300 64Go | Logitech S510
Portable : T75L 10,6'' | 1,2ulv | 512Mo | SSD 64Go | Graveur DVD | 1,2 Kg
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
4711 (0.86 par jour)


Score :

Message du 15-07-2008 @ 17:41   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

J'ai avancé un peu... Avec le code ci-dessous, Outlook ne s'ouvre pas mais j'ai un avertissement comme quoi un programme essaie d'envoyer un mail à mon nom. Une idée de comment supprimer cette alerte ?

Code :

Private Sub CommandButton1_Click()

Dim Dest As String
Dim Sujet As String

Dest = "dest@free.fr"
Sujet = "sujet du mail"

ActiveWorkbook.SendMail Dest, Sujet, False

End Sub





Pièces jointes
Alerte_envoi_mail_Excel.jpg [Voir] [Lien direct vers ce fichier] (Taille : 16.56 Ko - Téléchargements 318)

----------
PC1 : P7P55 Deluxe | i7 870 | 12 Go DDR3 1600 CL8 | GTX 670 OC | Dell U2713HM 27" | SSD 840 Pro 256 | Altec ATP3 | S12 550W | Lian Li PC-G7 | MX1000 - Illuminated keyboard | MG5250 - Freebox v5 + Cisco RV110W + Netgear WNHDB3004
PC2 : P5K Pro | E8400 + NH-U12P | RAM 4 Go | eVGA 460 GTX | 22" LG IPS225V-BN | SSD C300 64Go + 1To F1 | Z305 | S12 550W | 69U6 Noir | Roccat Kova[+]
PC3 : PC-Q07 | Intel DG41AN | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | SSD C300 64Go | Logitech S510
Portable : T75L 10,6'' | 1,2ulv | 512Mo | SSD 64Go | Graveur DVD | 1,2 Kg
- Haut de page -
B2000
Administrateur
Membre # 185

 Avatar du membre
Lieu : France/Poitiers/juste à côté...

Messages :
9757 (1.54 par jour)




Message du 15-07-2008 @ 18:05   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

a priori, c'est une securité interne d'outlook 2003 (peut etre XP aussi)
pas de solution directement dans le code ou dans la BdR du PC

a lire pour 3 solutions : http://www.vbfrance.com/infomsg_OUTLOOK-MESSAGE-PROGRAMME-TENTE-ENVOYER-MESSAGE-VOTRE-NOM_943249.aspx
----------
Intel i5 2500K | PNY GeForce GTX 1060 XLR8 OC, 6 Go | Asus P8P67 Pro Rev3.1 | 2x HyperX Fury 8Go DDR3-1866MHz CAS 10 | Sandisk Ultra Plus 256Go | Sony AD-7280S | Logitech QuickCam Pro 5000 | Microsoft Natural Ergonomic 4000 | Logitech Cordless Optical Mouse | Iiyama ProLite E2472HDD
Lenovo T430s : i5 3320m / 2x8Go / SAMSUNG 840 Pro 512Go / station Mini Dock serie 3 / LG 34um95 3440x1440 34" / SAMSUNG SyncMaster SA450 1920x1200 24"/ Clavier et souris Lenovo Ultraslim sans fil
Nexus 6 64Go Android 7.0.1 | Garmin Forerunner 305 | Nikon COOLPIX S9200 + Transcend SDHC 8GB | Canon PIXMA IP4850 | ADSL neufbox de SFR
Pour dialoguer en live, le chat TTH ou par mIRC sur irc://porsche.webchat.org:6667/tt-hardware
Rejoignez la team EBuyClub TTH !!!
Un jour j'ai mangé une pomme...
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
4711 (0.86 par jour)


Score :

Message du 16-07-2008 @ 8:48   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Merci B2000, effectivement il n'y a pas de solution simple à mettre en oeuvre pour contourner cette sécurité. Le fichier Excel étant mis à disposition sur un site Extranet et n'ayant pas la main sur les machines distantes, je pense qu'il va falloir réécrire ce formulaire en html :(

Quand j'aurai le temps, j'essairai le Outlook Redemption sur mon poste.
----------
PC1 : P7P55 Deluxe | i7 870 | 12 Go DDR3 1600 CL8 | GTX 670 OC | Dell U2713HM 27" | SSD 840 Pro 256 | Altec ATP3 | S12 550W | Lian Li PC-G7 | MX1000 - Illuminated keyboard | MG5250 - Freebox v5 + Cisco RV110W + Netgear WNHDB3004
PC2 : P5K Pro | E8400 + NH-U12P | RAM 4 Go | eVGA 460 GTX | 22" LG IPS225V-BN | SSD C300 64Go + 1To F1 | Z305 | S12 550W | 69U6 Noir | Roccat Kova[+]
PC3 : PC-Q07 | Intel DG41AN | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | SSD C300 64Go | Logitech S510
Portable : T75L 10,6'' | 1,2ulv | 512Mo | SSD 64Go | Graveur DVD | 1,2 Kg
- Haut de page -
Nagash
Sage
Membre # 19403

 Avatar du membre
Lieu : Rillett's Land

Messages :
1233 (0.27 par jour)


Score :

Message du 17-07-2008 @ 14:28   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

je dis une bétise mais ne pourrait on pas creer automatiquement le message mais le placer dans "brouilon" par exemple et de parametrer a ce moment la un envoi/reception de courrier d'outlook via excel ?
En gros faire en sorte que ca soit outlook et non pas excel qui déclenche l'envoi ?

----------
Asus A8N-E - AMD Athlon 64 3800+ X2 - XP90C + SE2 - 2*512 Mo Corsair 3200XL - Twintech 7600GS - Hitachi 7K250 120 Go PATA & T7K250 250 Go SATA - le tout dans un Lian Li PC7A+ Silver -- Dell 2408WFP et ViewSonic VX724 -- Canon Powershot G9 -- ♪ Cowon IAudio X5-L - Shure E2C - EarSonics SM2 - Sennheiser HD595
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
4711 (0.86 par jour)


Score :

Message du 17-07-2008 @ 15:43   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Ce qui est mis dans "Brouillon" y reste même en faisant un envoi/réception. Pour l'envoyer il faut reprendre le mail et l'envoyer. Enfin c'est ainsi que je le vois chez moi. Ca ne résoud donc pas le pb.
Ce qui aurait été judicieux, c'aurait été d'avoir un paramètre pour désactiver ce message d'alerte.
----------
PC1 : P7P55 Deluxe | i7 870 | 12 Go DDR3 1600 CL8 | GTX 670 OC | Dell U2713HM 27" | SSD 840 Pro 256 | Altec ATP3 | S12 550W | Lian Li PC-G7 | MX1000 - Illuminated keyboard | MG5250 - Freebox v5 + Cisco RV110W + Netgear WNHDB3004
PC2 : P5K Pro | E8400 + NH-U12P | RAM 4 Go | eVGA 460 GTX | 22" LG IPS225V-BN | SSD C300 64Go + 1To F1 | Z305 | S12 550W | 69U6 Noir | Roccat Kova[+]
PC3 : PC-Q07 | Intel DG41AN | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | SSD C300 64Go | Logitech S510
Portable : T75L 10,6'' | 1,2ulv | 512Mo | SSD 64Go | Graveur DVD | 1,2 Kg
- Haut de page -
Covitch
Administrateur
Membre # 2157

 Avatar du membre
Lieu : Vlaams Gewest

Messages :
14252 (2.42 par jour)


Score :

Message du 17-07-2008 @ 15:56   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

c'est la galère ce message. J'ai déja fait des recherches aussi et je me suis mangé les dents. C'est une sécurité introduite avec le SP3 d'office 2003. J'ai trouvé en son temps un contournement de problème. C'était quoi dja euh , ..une nana voulais faire un mailmerge, depuis une liste de contact excel et y'avais plus de 1000 contacts, pour chaque contact elle devais cliquer oui à ce message pour que le mail parte.

Je lui ai installé XpressClickYES ... un ptit soft conçu pour cliquer sur YES automatiquement ^^

vla le soft tiens ... et tu reconnaîtras ton message d'erreur : http://www.contextmagic.com/express-clickyes/

Lol quand même !!!


----------
Informatique : Alliance d'une science inexacte et d'une activité humaine faillible. ;)

Gigabyte iSOLO210 black | Alim Corsair HX520 | Gigabyte GA-EP45C-DS3R - Intel P45C | Intel C2Duo E8400 3Ghz | Crucial Ballistix Tracer Red Kit 2x2Gb DDr2-800Mhz 4-4-4-12@2.4V | Gigabyte AMD-ATI Radeon HD4870 | Samsung SpinPoint F1 1Tb | Samsung T240 SyncMaster 24"- wide | HP 2.1 Altec Lansing VS2421 | Graveur Pioneer 215D | Windows Seven Ed. Familiale Premium
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
4711 (0.86 par jour)


Score :

Message du 17-07-2008 @ 16:06   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Effectivement il y a des coutournements quand on peut intervenir sur le poste mais là, comme c'est un fichier mis à dispo sur un extranet... remarque je veux bien faire le tour de France pour modifier chaque machine :D
Bref, il va falloir développer quelque chose pour éviter cette alerte :yeux:

Trop de sécurité tue la réactivité ! :o
----------
PC1 : P7P55 Deluxe | i7 870 | 12 Go DDR3 1600 CL8 | GTX 670 OC | Dell U2713HM 27" | SSD 840 Pro 256 | Altec ATP3 | S12 550W | Lian Li PC-G7 | MX1000 - Illuminated keyboard | MG5250 - Freebox v5 + Cisco RV110W + Netgear WNHDB3004
PC2 : P5K Pro | E8400 + NH-U12P | RAM 4 Go | eVGA 460 GTX | 22" LG IPS225V-BN | SSD C300 64Go + 1To F1 | Z305 | S12 550W | 69U6 Noir | Roccat Kova[+]
PC3 : PC-Q07 | Intel DG41AN | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | SSD C300 64Go | Logitech S510
Portable : T75L 10,6'' | 1,2ulv | 512Mo | SSD 64Go | Graveur DVD | 1,2 Kg
- Haut de page -
Covitch
Administrateur
Membre # 2157

 Avatar du membre
Lieu : Vlaams Gewest

Messages :
14252 (2.42 par jour)


Score :

Message du 17-07-2008 @ 16:54   Afficher le profil   Envoyer un message privé   Editer le message   Citer le message      Afficher l'adresse IP   Alerter les modérateurs   

Ixion a écrit

Trop de sécurité tue la réactivité ! :o



En effet :aneffet:


----------
Informatique : Alliance d'une science inexacte et d'une activité humaine faillible. ;)

Gigabyte iSOLO210 black | Alim Corsair HX520 | Gigabyte GA-EP45C-DS3R - Intel P45C | Intel C2Duo E8400 3Ghz | Crucial Ballistix Tracer Red Kit 2x2Gb DDr2-800Mhz 4-4-4-12@2.4V | Gigabyte AMD-ATI Radeon HD4870 | Samsung SpinPoint F1 1Tb | Samsung T240 SyncMaster 24"- wide | HP 2.1 Altec Lansing VS2421 | Graveur Pioneer 215D | Windows Seven Ed. Familiale Premium
- Haut de page -


Aller dans le forum :  

Plan du forum | Contacter l'administrateur

Powered by SoulBB 3.0.1
© Soulmanto, 2003-2010

Valid XHTML 1.0 Transitional

Page générée en 0.045 secondes