Zdravo,
Imam problem glede razpošiljanja e-maila. In sicer kako bi rešil, da bi lahko poslal na večim naslovnikom hkrati, ker zaenkrat lahko samo enemu.
Sub Poslji_email()
Dim ime, email As String
ime = ActiveWorkbook.Name
Windows(ime).Activate
'pošiljanje
Workbooks(ime).HasRoutingSlip = True
With Workbooks(ime).RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("novak.janez@janez.si")
.Subject = "Pomembno - Obvestilo"
.Message = "Obveščamo vas, da je naloga izvedena." & Chr(10) & "Seznam je PRILOGA tega sporočila." & Chr(10) & "" & Chr(10) & "Lep pozdrav!"
End With
Windows(ime).Close savechanges = True
End Sub
Pošiljanje e-mail
Re: Pošiljanje e-mail
Pozdravljeni,
V lastnost 'Recipients' pač vpišete komu vse želite poslati, torej:
V lastnost 'Recipients' pač vpišete komu vse želite poslati, torej:
Koda: Izberi vse
.Recipients = "info@gmail.com, info@siol.net, info@t-2.net"
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pošiljanje e-mail
Hvala za pomoč.
A kljub popravku še vedno javlja napako...en prejemnik gre skozi ampak se ga določi naknadno v rubriki na prvi sliki.
http://shrani.si/f/2q/12L/49yx4Jc1/1/slika1.png
http://shrani.si/f/3o/Eo/3kWDw8ep/slika2.png
Takole sem si zamislil nadgradnjo prejšnje kode:
Dim ime As String
ime = ActiveWorkbook.Name
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = "info@gmail.si; info@t-2.si"
.CC = "prejemnik1@test.si; prejemnik2@test; prejemnik3@test.si; prejemnik4@test.si"
.BCC = "skriti.prejemnik1@test.si"
A kljub popravku še vedno javlja napako...en prejemnik gre skozi ampak se ga določi naknadno v rubriki na prvi sliki.
http://shrani.si/f/2q/12L/49yx4Jc1/1/slika1.png
http://shrani.si/f/3o/Eo/3kWDw8ep/slika2.png
Takole sem si zamislil nadgradnjo prejšnje kode:
Dim ime As String
ime = ActiveWorkbook.Name
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With OutMail
.To = "info@gmail.si; info@t-2.si"
.CC = "prejemnik1@test.si; prejemnik2@test; prejemnik3@test.si; prejemnik4@test.si"
.BCC = "skriti.prejemnik1@test.si"
Re: Pošiljanje e-mail
In v čem je problem zadnje kode?
Sicer pa imate na tem forumu že veliko kode in tudi rešitev za pošiljanje e-pošte. To funkcijo smo razvili že vsaj ene 3x za različnimi opcijami
Sicer pa imate na tem forumu že veliko kode in tudi rešitev za pošiljanje e-pošte. To funkcijo smo razvili že vsaj ene 3x za različnimi opcijami
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pošiljanje e-mail
Problem je v temu, da sedaj pošlje večim naslovnikom...to je uredu.
Mi pa ne "pobere" .xls priloge, ki bi morala biti poleg sporočila.
Mi pa ne "pobere" .xls priloge, ki bi morala biti poleg sporočila.
Re: Pošiljanje e-mail
Če boste v iskalno polje tega foruma vpisali ključno besedico "mail", boste hitro naleteli na tole tematiko, kjer lahko vidite, kako dodajati priloge (.AddAttachment)
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: Pošiljanje e-mail
Hvala za pomoč.
Program skreira datoteko...istočasno shrani in doda kot prilogo.
Bom kasneje prilepil vse 4 module kode za lažjo predstavo.
Program skreira datoteko...istočasno shrani in doda kot prilogo.
Bom kasneje prilepil vse 4 module kode za lažjo predstavo.