Object not found

Pomoč pri izdelavi makrov
Odgovori
pero978
Prispevkov: 148
Pridružen: Pe Feb 24, 2012 10:18 am

Object not found

Odgovor Napisal/-a pero978 »

Pozdravljeni,

Imam makro s katerim želim poslati pošto več uporabnikov, vendar javi napako object not found ali Run-time Error '424'. KOda je sledečca

Sub SendEmail(Email As String, Zadeva As String, Sporocilo As String) ',Priponka As String)

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = Email
olMail.Subject = Zadeva
olMail.Body = Sporocilo
'olMail.Attachments.Add = Priponka
olMail.Send

End Sub
Sub SendMassMail()

Vrstica = 1

Do
DoEvents

Vrstica = Vrstica + 1
Call SendEmail(Sheet1.Range("A" & Vrstica), "Testno sporocilo", "Vsebina maila") ',"pot oz. lokacija\ & List1.Range("D" & vrstica) & ".pdf")

Loop Until Vrstica = 3

End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Object not found

Odgovor Napisal/-a admin »

Pozdravljeni,

Za odgovor se morate vsaj malce potruditi - sploh niste napisali kje program javi napako. Na srečo je napaka lepo vidna in vam bom lahko pomagal a dajte se drugič vsaj malo potruditi!

V makru se v vrstici 'call SendEmail' skljicujete na objekt Sheet1, ki pa ga nimate definiranega in ta javi napako. Vrstico popravite takole:

Koda: Izberi vse

  Call SendEmail(Sheets(1).Range("A" & Vrstica), "Testno sporocilo", "Vsebina maila") ',"pot oz. lokacija\ & List1.Range("D" & vrstica) & ".pdf")
lp,
Matjaž Prtenjak
Administrator
Odgovori