Privet.
Mne dali takoi kod dlja otpravki pisem po pochet s Accessa no ispolnaja jevo v 2 stroke pojevljajetsa oshibka. Mozet kto opesnit shto ne tak?


Option Compare Database

Private Sub Send_Letters_Click()
Dim ola As Outlook.Application
Dim itm As Outlook.MailItem
Dim DisplayText As String
Dim Address As String
Dim fname As String

Set ola = Outlook.Application

Set itm = ola.CreateItem(olMailItem)

DisplayText = "Aibo"
Address = DisplayText & " <" & HyperlinkPart("aibo@aibo.com", acDisplayText) & ">"

itm.Recipients.Add Address
itm.Subject = "Testejam mailto"
itm.Body = "Joproj?m test?jam mailto"
fname = HyperlinkPart("c:\Formulas.txt")

itm.Attachments.Add fname

itm.Send

End Sub

A kakoi komandoi mozna zapustit v Accese okno na podobije kak "Oupen fail" v katorom ozna ukazath fail i potom puth k failu i samo nazvanije faila vpisivajetsa v jacheiku atachmenta formi shtobi potom nenuzna samamu pechatath.
Tipa C:\My documents\My picture\space.jpg