Zdar a silu Atlas, dna 22.03.2001 si napisal(a):
> Vazeni,
> potreboval bych poradit, jak poslat (v kodu VBA) z jine aplikace
> (excel)
> postovni zpravu na skupinu adres a - zase v kodu, pripojit prilohu. V
> dokumentaci jsem nasel, jak udelat novy kontakt nebo poslat replay. Nebo
> sice vytvorit dopis ale nejak jsem se zasekl s adresami a samotnym
> odeslanim. Dekuji predem za postrceni spravnym smerem ci jinou pomoc.
> 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