Mail iz Excela

Pomoč pri izdelavi makrov
Odgovori
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Mail iz Excela

Odgovor Napisal/-a Stenly »

Pozdravljeni
Imam podatke, katere moram pošiljati po mailu.
Podatke zberem s pomočjo Excela, ostalo pa ročno. Želel sem si malo poenostaviti in sem rešitev našel na forumu: http://www.matjazev.net/forum/viewtopic ... ht=outlook.
Za začetek sem kodo precej poenostavil:

Koda: Izberi vse

Sub PosljiEPosto()
    Dim iMsg As Object
    Dim iConf As Object

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    With iMsg
        Set .Configuration = iConf
        .To = "mail stranke"
        .CC = ""
        .BCC = ""
        .From = "moj mail"
        .Subject = ""
        .TextBody = "Test"
        .AddAttachment ""
        .Send
    End With
   
    Set iMsg = Nothing
    Set iConf = Nothing

End Sub
Vklopil sem tudi podporo za outlook: Tools\References => Microsoft Outlook 10.0 Object Library.
Koda pa se mi zatakne (prii pošiljanju ".Send").
Torej; kje sem naredil napako?

Hvala za pomoč
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Kakšna pa je napaka? Tudi avtomehanik vem ne more veliko pomagati, če mu rečete samo, da avto ne dela :wink:.
lp,
Matjaž Prtenjak
Administrator
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Tudi meni se ustavi. Napaka :
The "SendUsing" configuration value is invalid
Zakaj pa ne uporabite kode

Koda: Izberi vse

Sub PosljiPosto()
  Dim objOutlook As Object
  Dim sporocilo As Object
    
  ' ustvarim instanco Outlook objekta
  Set objOutlook = CreateObject("Outlook.Application")
  
  ' Ustvarim prazno pošto
  Set sporocilo = objOutlook.createitem(0)
  
  ' Postavim prejemnika
  sporocilo.Recipients.Add "domenvaupotic@gmail.com"
  
  ' Postavim zadevo
  sporocilo.Subject = "Pošta iz VBA"
  
  ' Telo sporočila
  sporocilo.body = "Hm, test, kaj pa drugega..."
  
  ' Pa še pošljem
  sporocilo.Send
    
  ' Za sabo vse lepo pozaprem
  Set myOutlook = Nothing
End Sub
iz http://www.matjazev.net/pnew/index.php? ... tip27.html
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Če vam javlja napako:

Koda: Izberi vse

The SendUsing configuration value is invalid
potem prvoomenjeno tematiko (http://www.matjazev.net/forum/viewtopic.php?t=126) preberite do konca in makro popravite tako, kot sem svetoval v nadaljevanju.
lp,
Matjaž Prtenjak
Administrator
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Ja; prebral sem do konca. Sedaj dela.
Še 1x hvala za nasvet in potrpežljivost.

Lp
Rolle
Prispevkov: 36
Pridružen: Sr Sep 23, 2009 1:28 pm

Re: Mail iz Excela

Odgovor Napisal/-a Rolle »

Mene pa zanima, kako dodam več prejemnikov hkrati, ki jim pošljem še priponko. Poskusil sem s spodnjo kodo, vendar sem opazil, da mi potem isto priponko pripne dvakrat in ne samo enkrat.

Koda: Izberi vse

With OutMail
        .To = "ime.priimek@gmail.com; ime1.priimek1@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .Body = strbody
        .Attachments.Add ("C:\test.xlsm")
        .Send
    End With


Hvala in lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Mail iz Excela

Odgovor Napisal/-a admin »

Ne to pa mora biti nekaj drugega. Koda ki ste jo zapisali je pravilna in bi dvema naslovnikoma poslala isto sporočilo z eno prilogo!

Poglejte celotno kodo; napaka je verjetno nekje drugje!
lp,
Matjaž Prtenjak
Administrator
Rolle
Prispevkov: 36
Pridružen: Sr Sep 23, 2009 1:28 pm

Re: Mail iz Excela

Odgovor Napisal/-a Rolle »

Res je. Ne vem kaj se je zgodilo, ampak sedaj mi deluje b.p. :)
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Mail iz Excela

Odgovor Napisal/-a Stenly »

Pozdravljen

Jest sm zadevo rešu s For zanko.

Lp
Odgovori