bonjour ,

je suis un étudiant fraçais en peine!

je parcour internet à la recherche d'une macro excel pour piloter outlook

mais je ne trouve pas ou tres peu!

le probleme est le suivant:

Je suis en stage (bts) dans une entreprise de btp et je liste des données que l'on me donne

je souhaterais 3 choses:

1- envoyer une feuille dans le corps d'un email à une adresse mail dans une celulle d'une autre feuille ( du meme classeur) ?

2- savoir si cette réponse peut etre automatique selon quelques critere (A1>0 par exemple) et defiérée de 1 heure de la reception ?

3- enfin savoir si l'émail à été envoyé, ajouté dans OUTLOOK une tache de rappel telephonique le lendemain à 10h?

je travail dans l'entreprise avec Outlook et Excel 2000


Matthieu

[jeanpierre]

Bonjour matthieu, re le Forum,

Fais une recherche en haut à droite avec Outlook ou mail, e-mail etc..., il y a un nombre impressionnant de procédures, de réponses... etc, sur ce type de question.

Bon courage pour ton stage et bonne soirée.

Jean-Pierre

Quelques liens au hasard...

http://www.excel-downloads.com/forum...il-outlook.htm
http://www.excel-downloads.com/forum...excel.htm#1129

merci

mais malgre tout je ne trouve pas
ou les codes que j'ai vu ne marche pas!

encore merci

et si quelqu'un à une réponse ou un bout de réponse à me proposer
je suis preneur

merci

[MichelXld]

bonjour Matthieu , bonjour cher Jean-Pierre

les solutions proposées par Jean-Pierre fonctionnent tres bien

tu trouveras d'autres exemples dans ce lien

http://www.excel-downloads.com/html/...MichelXldsuite


pour la 2eme partie de ta question : l' envoi d'un message différé d'une heure

Sub mail_Differe_confirmationReception_Lecture()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim Ol As New Outlook.Application
Dim olMail As MailItem
Set Ol = New Outlook.Application
Set olMail = Ol.CreateItem(olMailItem)
With olMail
.To = 'forum@xld.fr'
.Subject = 'Le sujet traité '
.Body = 'Bonjour , ' & vbLf & 'Vous trouverez ci joint...'
'------------------------
.DeferredDeliveryTime = Date + Time + (1 / 24) 'option pour envoi différé d'une heure
'------------------------
.OriginatorDeliveryReportRequested = True 'confirmation de réception
.ReadReceiptRequested = True 'confirmation de lecture
.Send
End With
End Sub


pour la 3eme partie de ta question

Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem

Set MyItem = myOlApp.CreateItem(olAppointmentItem)

MyItem.MeetingStatus = olMeeting
MyItem.Subject = 'le forum xld'
MyItem.Body = '...rappel telephonique ....'
MyItem.Start = Date + 1 & ' ' & #10:00:00 AM# ' Attention : format mois/jours/année
MyItem.Duration = 30 'minutes

MyItem.Save
End Sub


bonne journée
MichelXld

bonjour



et merci pour votre aide

j'ai un soucis avec: .Send !!!

et je n'ai pas vu comment envoyé un mail dans le corps du mail!

actuellement je travail avec:

ThisWorkbook.Sheets('Impri').Copy
ActiveWorkbook.SendMail 'merland.m@wanadoo'.fr', 'Dossier Urgent', False



mais la feuille aparait en piece jointe et non dans le corps du mail

merci

ps: j'utilise Excel 2000 et donc 'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
ne fonctionne pas !