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
Object not found
Re: Object not found
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:
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
Matjaž Prtenjak
Administrator