Discussion:
Hogyan lehet több fájlt csatolni Outlook e-mailhez MS Access 2003
(too old to reply)
Franciska
2010-03-04 08:06:01 UTC
Permalink
Kérlek segítsetek a következő problémában. Hogyan lehet több xls fájlt
csatolni, Outlook e-mailhez, Access 2003 ból egy gombnyomásra.
Eddig nem találtam megoldást.
vilmarci
2010-03-04 10:19:50 UTC
Permalink
Szia,

Ha jól értem, nem maga az e-mail küldés a gond, hanem a több fájl csatolás.
Ehhez egyszeruen többször kell kiadni az Attachments.Add parancsot, pl:

Sub testOl()

Dim ol As Outlook.Application
Dim m As MailItem
Set ol = Outlook.Application
Set m = ol.CreateItem(olMailItem)

With m
m.Subject = "targy"
m.To = "cim"
m.Attachments.add "C:\Test\test.xls"
m.Attachments.add "C:\Test\test2.xls"
m.Display
End With

End Sub

üdv
vm
Kérlek segítsetek a következo problémában. Hogyan lehet több xls fájlt
csatolni, Outlook e-mailhez, Access 2003 ból egy gombnyomásra.
Eddig nem találtam megoldást.
Peter Foldes
2010-03-04 16:54:29 UTC
Permalink
vilmarci

Released as of yesterday. Maybe you are interested
http://sites.google.com/site/advancedfeatures/home
--
Peter

Please Reply to Newsgroup for the benefit of others
Requests for assistance by email can not and will not be acknowledged.
Post by vilmarci
Szia,
Ha jól értem, nem maga az e-mail küldés a gond, hanem a több fájl csatolás.
Sub testOl()
Dim ol As Outlook.Application
Dim m As MailItem
Set ol = Outlook.Application
Set m = ol.CreateItem(olMailItem)
With m
m.Subject = "targy"
m.To = "cim"
m.Attachments.add "C:\Test\test.xls"
m.Attachments.add "C:\Test\test2.xls"
m.Display
End With
End Sub
üdv
vm
Kérlek segítsetek a következo problémában. Hogyan lehet több xls fájlt
csatolni, Outlook e-mailhez, Access 2003 ból egy gombnyomásra.
Eddig nem találtam megoldást.
vilmarci
2010-03-05 07:39:05 UTC
Permalink
Looks promising.
Thanks,
vm
Post by Peter Foldes
vilmarci
Released as of yesterday. Maybe you are interested
http://sites.google.com/site/advancedfeatures/home
--
Peter
Please Reply to Newsgroup for the benefit of others
Requests for assistance by email can not and will not be acknowledged.
Post by vilmarci
Szia,
Ha jól értem, nem maga az e-mail küldés a gond, hanem a több fájl csatolás.
Sub testOl()
Dim ol As Outlook.Application
Dim m As MailItem
Set ol = Outlook.Application
Set m = ol.CreateItem(olMailItem)
With m
m.Subject = "targy"
m.To = "cim"
m.Attachments.add "C:\Test\test.xls"
m.Attachments.add "C:\Test\test2.xls"
m.Display
End With
End Sub
üdv
vm
Kérlek segítsetek a következo problémában. Hogyan lehet több xls fájlt
csatolni, Outlook e-mailhez, Access 2003 ból egy gombnyomásra.
Eddig nem találtam megoldást.
Loading...