Re: Outlook - VBA

From: Atlas (ovahalik@atlas.cz)
Date: 22. 03. 2001, 13:52 CET


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