опубликован 18-02-2002 17:00 MSK            

---

Option Explicit

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

Private Sub Command1_Click()
Dim text As String

Set olMail = olApp.CreateItem(olMailItem)
olMail.Recipients.Add (edtAdress.text)

olMail.FlagStatus = olFlagMarked
olMail.Subject = "Сабджект письма"

text = "здесь текст письма"

olMail.Body = Chr(13) + text
'прицепляем файл
Set myAttachments = olMail.Attachments
myAttachments.Add "c:\work\test.txt", olByValue, 1, "test.txt"
'и отправляем
olMail.Send

End Sub