W
Will1841
Guest
Je dois faire un bouton excel vba qui ouvre outlook et qui copie le contenu d'un mail dans la page excel....
le prob c'est que il copie le contenu du mail que dans une cellule.......
J'ai comme code il copie le mail et le met dans excel en créant la page...
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLfolder As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem
Dim OLpj As Outlook.Attachment
' Copie le contenu d'un mail dans un fichier excel
Private Sub chMail()
Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
For Each OLmail In OLinbox.Items
If OLmail.SenderName = "NomExpediteur, Prénom" Then
Dim OLbody As String
OLbody = OLmail.Body
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
Set wbk = .Workbooks.Add
Set sht = wbk.ActiveSheet
With sht
.Range("A1") = OLbody
End With
wbk.SaveAs "C:\Chemin\Dossier\Fichier.xls"
wbk.Close
.Quit
End With
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
End If
Next
End Sub
Est il possible de créé une page bloc note a la place de la page excel ????????????????
le prob c'est que il copie le contenu du mail que dans une cellule.......
J'ai comme code il copie le mail et le met dans excel en créant la page...
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLfolder As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem
Dim OLpj As Outlook.Attachment
' Copie le contenu d'un mail dans un fichier excel
Private Sub chMail()
Set OLapp = CreateObject("Outlook.application")
Set OLspace = OLapp.GetNamespace("MAPI")
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
For Each OLmail In OLinbox.Items
If OLmail.SenderName = "NomExpediteur, Prénom" Then
Dim OLbody As String
OLbody = OLmail.Body
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
Set wbk = .Workbooks.Add
Set sht = wbk.ActiveSheet
With sht
.Range("A1") = OLbody
End With
wbk.SaveAs "C:\Chemin\Dossier\Fichier.xls"
wbk.Close
.Quit
End With
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
End If
Next
End Sub
Est il possible de créé une page bloc note a la place de la page excel ????????????????