Pošiljanje e-mail

Pomoč pri izdelavi makrov
Odgovori
oasis
Prispevkov: 7
Pridružen: Če Mar 31, 2016 12:42 pm

Pošiljanje e-mail

Odgovor Napisal/-a oasis »

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
admin
Site Admin
Prispevkov: 3583
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a admin »

Pozdravljeni,

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
oasis
Prispevkov: 7
Pridružen: Če Mar 31, 2016 12:42 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a oasis »

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"
admin
Site Admin
Prispevkov: 3583
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a admin »

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
lp,
Matjaž Prtenjak
Administrator
oasis
Prispevkov: 7
Pridružen: Če Mar 31, 2016 12:42 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a oasis »

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.
admin
Site Admin
Prispevkov: 3583
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a admin »

Č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
oasis
Prispevkov: 7
Pridružen: Če Mar 31, 2016 12:42 pm

Re: Pošiljanje e-mail

Odgovor Napisal/-a oasis »

Hvala za pomoč.

Program skreira datoteko...istočasno shrani in doda kot prilogo.

Bom kasneje prilepil vse 4 module kode za lažjo predstavo.
Odgovori