Discussion :

[SpaceFrog]

Je cherche à récupérer un message dans le dossier brouillon (ou autre dossier) pour lui attribuer des destinataires ...


ce code me créer un nouveau message, je voudrais en fait dupliquer un message existant ...

Code :

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

1
2
3
4
5
Set olk = CreateObject("Outlook.Application")
    ' Set oitem = olk.Createitem(0)
 
    With oitem
        .Subject = Suject

[Megaxel]

Je n'ai toujours rien sous la main pour être plus précis, mais regarde les propriétés de l'objet "MailItem". Je crois que tu peux jouer sur les répertoires avec ça. Il me semble que j'ai fait un test sur un truc comme ça il y a quelques temps.

[SpaceFrog]

arf tu me sauverais la vie ...
parceque pour le moment je construis mon mail, mais je n'arrive àa à y insérer d'images ...
au moins si j'ai accès à un mail existant en duplication jepourrais coller des images dedans avant ...

[Megaxel]

Je viens de trouver ça, dans l'aide:

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
 
Sub CopyItem()
	Dim myolApp As New Outlook.Application
	Dim myNameSpace As Outlook.NameSpace
	Dim myFolder As Outlook.MAPIFolder
	Dim myNewFolder As Outlook.MAPIFolder
	Dim myItem As Outlook.MailItem
	Dim myCopiedItem As Outlook.MailItem
	Set myolApp = CreateObject("Outlook.Application")
	Set myNameSpace = myolApp.GetNamespace("MAPI")
	Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
	Set myNewFolder = myFolder.Folders.Add("Saved Mail", olFolderDrafts)
	Set myItem = myolApp.CreateItem(olMailItem)
	myItem.Subject = "Speeches"
	Set myCopiedItem = myItem.Copy
	myCopiedItem.Move myNewFolder
End Sub

ou en VBS:

Code :

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

1
2
3
4
5
6
7
8
 
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myNewFolder = myFolder.Folders.Add("Saved Mail", 16)
Set myItem = Application.CreateItem(0)
myItem.Subject = "Speeches"
Set myCopiedItem = myItem.Copy
myCopiedItem.Move myNewFolder

Est-ce que ça peut t'aider?

[SpaceFrog]

oki ça va me permettre d'avancer une peu ça... le but étant de récupérer un mail placé dans la boite brouillon ...

à priori dans ce code je peux acceder à la boite brouillon, reste à savoir comment recupérer le mail voulu ...

merci

[SpaceFrog]

Bon a priori pour acceder au brouillon c'est par la collection de folders...

question le 16 c'est pour tout le monde ou uniquement en local ?


ensuite comment accède-t-on à son contenu ???

Code :

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

1
2
3
4
5
6
7
8
9
    Dim myOlApp, MyNameSpace, myDraftsFolder, myItem, DraftMail
    Set myOlApp = CreateObject("Outlook.Application")
    Set MyNameSpace = myOlApp.GetNameSpace("MAPI")
    Set myOlApp = CreateObject("Outlook.Application")
 
    Dim folder As Integer
    Dim foldername
 
    myDraftsFolder = MyNameSpace.GetDefaultFolder(16)

[SpaceFrog]

Pour ceux qui seraient intéressés ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim myOlApp, MyNameSpace, myDraftsFolder, myItem, DraftMail, NewMail
    Set myOlApp = CreateObject("Outlook.Application")
    Set MyNameSpace = myOlApp.GetNameSpace("MAPI")
    Set myOlApp = CreateObject("Outlook.Application")
 
    If MyNameSpace.GetDefaultFolder(16).items.Count = 0 Then
        MsgBox ("Vous n'avez pas placé le modèle dans le repertoire 'Brouillons'" + vbCrLf + "Construsez d'abord le message et enregistrez le dans le repertoire des Brouilons OUTLOOK")
        GoTo sortie
    End If
 
    Set NewMail = MyNameSpace.GetDefaultFolder(16).items(1).Copy