Outlook et excel

Outlook et excel - VB/VBA/VBS - Programmation

Marsh Posté le 09-05-2005 à 18:40:50    

Bonjour à tous, ;)  
 
Comment faire pour envoyer un mail via un userform d'excel?
 
Merci. :)  


---------------
FoH
Reply

Marsh Posté le 09-05-2005 à 18:40:50   

Reply

Marsh Posté le 09-05-2005 à 19:25:47    

Comme ça :

Code :
  1. Dim Ol As New Outlook.Application
  2. Dim OlMail As MailItem
  3. Dim CurrFile As String
  4. Set Ol = New Outlook.Application
  5. Set OlMail = Ol.CreateItem(OlMailItem)
  6. With OlMail
  7.    .To = destinataire_du_message ' (adresse email)
  8.    .Subject = sujet_du_message 
  9.    .Body = coprs_du_message
  10.    .Send ' Envoie la mail
  11. End With


Message édité par knakes le 09-05-2005 à 19:26:00
Reply

Marsh Posté le 09-05-2005 à 21:49:47    

Merci je vais essayer ça...


---------------
FoH
Reply

Marsh Posté le 10-05-2005 à 12:57:47    

erreur à ce niveau
Dim Ol As New Outlook.Application


---------------
FoH
Reply

Marsh Posté le 10-05-2005 à 13:36:40    

FannyOnHeat a écrit :

erreur à ce niveau
Dim Ol As New Outlook.Application


Tu as réalisé écrit ta macro dans Excel ou dans Outlook?
 
Vu ta question du départ, je pense que c'est dans Excel. Il faut alors rajouter un référence à ton projet: Microsoft Outlook xx.x Object Library.
 
Le numéro de version peut différer selon les versions d'Office que tu as... Par exemple, pour Office XP (2002) c'est 10.0.
 
Voilà après cela devrait fonctionner.
 
A+

Reply

Marsh Posté le 10-05-2005 à 20:43:05    

Merci, je rajoute ça où?
Microsoft Outlook xx.x Object Library


---------------
FoH
Reply

Marsh Posté le 10-05-2005 à 21:48:57    

FannyOnHeat a écrit :

Merci, je rajoute ça où?
Microsoft Outlook xx.x Object Library


Tu vas dans Outils > Références.
 
Dans la liste, tu cherches 'Microsoft Outlook ... Object Library'


---------------
now : do nothing
Reply

Marsh Posté le 10-05-2005 à 21:58:28    

OK merci, je vous tiens au courrant...


---------------
FoH
Reply

Marsh Posté le 11-05-2005 à 17:05:57    

Ca marche! Merci à tous.


---------------
FoH
Reply

Marsh Posté le 13-05-2005 à 14:10:33    

Moi j'ai presque pareil, ( http://forum.hardware.fr/hardwaref [...] 0019-1.htm) sauf que ca envoi pas le mail, pourtant le programme n'affiche pas d'erreurs...
 
Y'a rien a ajouter a par la Référence Microsoft outlook xx.x ... ?
Vous savez d'où ca pourrai venir ?

Reply

Marsh Posté le 13-05-2005 à 14:10:33   

Reply

Marsh Posté le 15-05-2005 à 10:46:16    

Comment envoyer une feuille dans un message en VBA?(testé avec Excel 2003)
Sub MailFeuilleOE()
Dim Dest, Sujt, Msg As String
Dim RepName
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\temp\test.xls"
RepName = "C:\temp\test.xls"
Dest = "dj@free.fr"
Sujt = "Test d'envoi d'une feuille avec Excel"
Msg = "Bonjour, Excel vous envoie une feuille avec OE"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
ActiveWorkbook.Close
End Sub

Reply

Marsh Posté le 17-05-2005 à 08:32:26    

Merci, ca à l'air de bien marcher ca !
Peut on cependant enlevé automatiquement le correcteur d'orthographe ?
 
Merci encore ;)

Reply

Marsh Posté le 22-07-2005 à 08:58:13    

salut ton code est genial pour envoyé un mail
et j'aurai aimer savoir si tu avait un bout de code pour pouvoir recupere un mail d'une boite au lettre outlook!
ou si tu pouvait m'aider a trouver une solution merci

Reply

Marsh Posté le 03-08-2005 à 17:56:26    

excusez-moi de faire le mauvais, mais quelqu'un a-t-il un lien pour télécharger cette librairie qui n'est manifestement pas disponible sur ma machine :sweat:  
Merci d'avance

Reply

Marsh Posté le 04-08-2005 à 05:31:08    

Le fichier, c'est msoutlxx.olb.
Où le xx représente le numéro de version.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 04-08-2005 à 11:19:09    

bon alors le pb que j'ai, c'est que j'ai pas installé outlook 2003 avec office 2003, je suis resté à la version outlook express, ca pourra fonctionner? :cry:

Reply

Marsh Posté le 04-08-2005 à 12:45:57    

Outlook Express N'EST PAS Outlook!!!!
 
Par contre, je pense qu'il doit bien y avoir un composant pour utiliser Outlook Express.
Je vais voir si je trouve qqch.
Peut-être quelqu'un en a-t-il l'expérience et viendra te le dire avant moi.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 04-08-2005 à 12:47:34    

Je viens de voir, plus haut, que le code de maverick251 est fait pour OE!


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 04-08-2005 à 13:37:28    

AlainTech a écrit :

Je viens de voir, plus haut, que le code de maverick251 est fait pour OE!


mille excuses à ceux qui ont cherché pour rien, j'ai trouvé mon bonheur  :sweat:  
merci alaintech en tt cas :hello:

Reply

Marsh Posté le 14-10-2005 à 10:59:09    

Le code de maverick251 m'a bien été utile. Mais j'ai encore trois petites questions
 
- J'aimerai savoir s'il y a possibilité de rajouter une ligne de code pour mettre un PJ au fichier (autre que je fichier Excel où il y a la macro) ? Si oui laquelle et à quel endroit ?
- Est ce que c'est faisable que l'envoi de mail se fasse automatiquement sans avoir à cliquer sur envoi dans OE
- J'ai pas trouvé (certainement mal cherché) si la même manip est faisable avec Microsoft Outlook 2003. Si c'est faisable est ce que quelqu'un à le code équivalant ou le lien avec le post concerné ?


Message édité par KeysMaster le 14-10-2005 à 12:54:20
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed