[VB6]Ajouter PJ email OLEexcel
Bonjour a tous,
je viens vers ou car je bute sur quelque chose de simple mais je n'arrive pas a trouver la synthaxe.
Explication :
Je crée un petit programme avec un OLEexcel ( OLE1 ) afin de remplir rapidement un fichier excel prés établi.
une fois rempli j'arrive a mettre ces données dans excel ( Les infos forment une image et non le remplissement des cellules excel )
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Dim oExcel As Excel.Application
Dim adresse As String
On Error Resume Next
OLE1.Copy
On Error GoTo 0
adresse = "C:\Documents and Settings\Bureau"
Dim oWk As Workbook
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True 'Affiche l'application excel
Set oWk = oExcel.Workbooks.Open(adresse & "\reporting.xlsx")
ActiveWorkbook.Sheets("feuil1").Select
Columns("A:A").Select
ActiveSheet.Paste
Set oExcel = Nothing 'libération mémoire.. |
Ce code marche, Par contre j'aimerai remplir cette OLE comme c'est le cas mais par contre je cherche à l'envoyer directement par email :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Dim NewMail As Outlook.MailItem
On Error Resume Next
OLE1.Copy
On Error GoTo 0
Set NewMail = OutlookApp.CreateItem(olMailItem)
NewMail.Recipients.Add ("pex@aol.fr")
NewMail.Subject = "Demande Activité"
NewMail.Body = "" 'si possible j'aimerai l'attacher dans le corps du message
Newmail.Attachments.Add 'Ou le mettre en PJ mais je n'arrive pas a trouver la syntaxe pour coller l'élément.
NewMail.Send |
merci de votre aide
Cordialement
Pex
