..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Pošiljanje e-mail

Pomoč pri izdelavi makrov

Pošiljanje e-mail

OdgovorNapisal/-a oasis » Sr apr 06, 2016 8:06 am

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



Matjazev.NET
 

Re: Pošiljanje e-mail

OdgovorNapisal/-a admin » Sr apr 06, 2016 8:50 am

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

Re: Pošiljanje e-mail

OdgovorNapisal/-a oasis » Sr apr 06, 2016 9:27 am

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

Re: Pošiljanje e-mail

OdgovorNapisal/-a admin » Sr apr 06, 2016 9:35 am

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

Re: Pošiljanje e-mail

OdgovorNapisal/-a oasis » Sr apr 06, 2016 12:51 pm

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

Re: Pošiljanje e-mail

OdgovorNapisal/-a admin » Sr apr 06, 2016 1:15 pm

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

Re: Pošiljanje e-mail

OdgovorNapisal/-a oasis » Sr apr 06, 2016 1:42 pm

Hvala za pomoč.

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

Bom kasneje prilepil vse 4 module kode za lažjo predstavo.
oasis
 
Prispevkov: 7
Pridružen: Če mar 31, 2016 12:42 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron