Alex, opet jsi nezklamal. Diky. Oldrich > toto by malo stacit: > Sub majlovackaaaaa() > > > On Error Resume Next > Set mejl = GetObject(, "Outlook.application") > If Err.Number <> 0 Then Set mejl = CreateObject("Outlook.application") > On Error GoTo 0 > Set sprava = mejl.CreateItem(olMailItem) > Set komu = sprava.Recipients.Add("komu@kam.sk") > sprava.Attachments.Add ("C:\TEMP\Wispro.txt") > sprava.Body = "" > sprava.Subject = "wo co go" > sprava.ReadReceiptRequested = False > sprava.OriginatorDeliveryReportRequested = False > sprava.DeleteAfterSubmit = True > sprava.send > Set mejl = Nothing > End Sub > > -- > s pozdravom > AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 06:00 CEST