Discussion :

[sabrine1311]

Bonjour,
J'ai crée une fonction qui permet de'envoyer à partir d'un fichier excel une demande à une réunion dans outlook.
Je souhaite inserer dans le corps de cette invitation un tableau excel (une selection de plage), maisca ne marche pas!
ci-dessous mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub SendMeetingBNB()
 
 
Dim objOL  'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim strHTML As String
Dim i As Byte, j As Byte
Dim iMsg As Object, iConf As Object
 
 
 
 
 
 
Const olAppointmentItem = 1
Const olMeeting = 1
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
 
  Calcul_Date_Invitation
      .Subject = "Test envoi invitation_BnB"
 
        .Start = Date_BnB
'.Body = ActiveSheet.Range("E5:K17").Select
        .Duration = 45
 
   MsgBox Date_BnB
 
   '.End = DateTime.Parse("10/20/2006 11:00 AM")
 
'.End = DateAdd("h", 0.45, .Start)
.Location = "lieu de la réunion"
.BusyStatus = olFree
.Categories = ""
ReminderMinutesBeforeStart = 15
 'rappel 15min avant
.ReminderOverrideDefault = True
.Importance = olImportanceHigh
' make it a meeting request
.MeetingStatus = olMeeting
 
 
 'With ActiveSheet.AppointmentEnvelope
 
.RequiredAttendees = Worksheets("Data").Range("I4") & ";" & Worksheets("Data").Range("I5") 'participant obligatoire ici ajouter mail de FranceBidReviw'
.OptionalAttendees = Worksheets("Data").Range("I4") & ";" & Worksheets("Data").Range("I5") 'participants optionnel à la réunion
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
Sheets("Invitation").Activate
  ActiveSheet.Range("E5:K17").Select
 
'.Body = ActiveSheet.Range("E5:K17").Select (Je veux avoir dans le body de l'invitation cette selection dans un fihier excel c'et un petit tableau dans le fichier "Invitation.xls"
 
 
 
.Display
 
End With
 
 
End Sub

Si vous avez une solution à ce probléme ou vous avez des propositions qui peuvent aider merci de les partager.

Cdlt,
sabrine

[Daniel.C]

Bonsoir,

Si tu as Office 2013, "MailEnveloppe" te permet de joindre un texte et une plage de cellules. Sinon, regarde la page de Ron deBruin :

http://www.rondebruin.nl/win/s1/outlook/amail4.htm

[sabrine1311]

Bonjour,

Cette fonction marche pour envoyé "un mail", je l'ai déjà utilisé pour cette focntion!
J'ai essayé de l'utiliser pour l'envoie d'une invitation, mais cela ne marche pas! elle est inconnue.
Merci quand meme pour votre réponse.
Cdlt,
sabrine