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