Logo du forum
 

Forum TT-Hardware

| 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 :
2333 (1.04 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 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go / Graveur DVD / 1,2 Kg
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
2333 (1.04 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 17)

----------
PC1 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go / Graveur DVD / 1,2 Kg
- Haut de page -
B2000
Administrateur
Membre # 185

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

Messages :
9429 (3.07 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
----------
AMD Barton 2600+| MSI K7N2 DELTA L| 1Go DDR400| Maxtor 160Go| Maxtor 60Go| LG GSA-4165B| Liteon LTD16X6S| LeadTek A280LE TD| Creative SBLive! 1024| Logitech QuickCam Pro 5000| Microsoft Natural Ergonomic 4000| Logitech Cordless Optical Mouse| Samsung SyncMaster 206BW

Nikon COOLPIX 5900 + Kingston Ultimate 120x 2GB | Canon PIXMA IP4000 | ADSL 100% Neuf Box

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 :
2333 (1.04 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 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go / Graveur DVD / 1,2 Kg
- Haut de page -
Nagash
Sage
Membre # 19403

 Avatar du membre
Lieu : Rilletts'Land

Messages :
1051 (0.76 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 - Sennheiser HD595
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
2333 (1.04 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 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go / Graveur DVD / 1,2 Kg
- Haut de page -
Covitch
Administrateur
Membre # 2157

 Avatar du membre
Lieu : Laeken@Bruxelles

Messages :
13566 (5.11 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 | Win Vista Ultimate 32bit SP1
- Haut de page -
Ixion
Vétéran
Membre # 5885

 Avatar du membre
Lieu : Rillettes'Land

Messages :
2333 (1.04 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 : P5K Pro | E8400 + Noctua NH-U12P | 2 Go PC6400 TRANSCEND | 8800GT 512 | 19" VP191b/24" Sensy LCD24KAL | Raptor 150Go/7K250 160 Go/Samsung 500Go | NEC AD-7170 | Lecteur DVD LG | Altec ATP3 | S12 550W | 69U6 Noir | MX3100 | ip5200R - Freebox + D-Link DGL-4300
PC2 : Abit IP-95 | E4300 | 17" LG 1720B | 1 Go DDR2 Balistix | Hitachi 7K250 160 Go | Nec ND-3500AG | Logitech S510
Portable : T75L 10,6" / 1,2ulv / 512Mo / 80Go / Graveur DVD / 1,2 Kg
- Haut de page -
Covitch
Administrateur
Membre # 2157

 Avatar du membre
Lieu : Laeken@Bruxelles

Messages :
13566 (5.11 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 | Win Vista Ultimate 32bit SP1
- Haut de page -


Aller dans le forum :  

Plan du forum | Contacter l'administrateur

Powered by SoulBB 3.0.1
© Soulmanto, 2003-2006

Valid XHTML 1.0 Transitional

Page générée en 0.11 secondes