Yep ir man veikia.
Mačiau kad pirminis kodas buvo pritaikytas be user/pssw, bet nespėjau
pasigooglinti ir išbandyti.
Tiesa, galvojau jog pakimbs dėl SSL, bet viskas sukasi ore!
Ačiū!
"CurrentUser" parašė naujienų news:nbc8d9$u63$1@trimpas.omnitel.net...
Radau!
Čia trūko keleto parametrų:
With Flds
..Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'basic (clear-text) authentication
..Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"tavo@domenas.xxx"
..Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"****"
Be šitų parametrų - gaunam tą patį errorą.
Dabar čiuožia! man to ir reikėjo! Tik truputį nepatinka pssw laukas. Kaip
čia su tuo reikalu? Gi negaliu palikti faile passwordo.
"CurrentUser" wrote in message news:nbc4tv$rdi$1@trimpas.omnitel.net...
Taip, adaptavom pagal jūzerio parametrus, bet man tai nevažiuoja. Po kokių
30s nuo paleidimo gaunu:
Gal kokių nors References trūksta? Šiuo metu pas mane standartiškai:
1) VBA for Applications;
2) MS Excel 14.0 Object Library;
3) OLE Automation;
4) MS Office 14.0 Object Library;
5) MS Forms 2.0 Object Library.
O CDO nereikia instaliuot, ar ne?
"toms" wrote in message news:nbbsvb$m65$1@trimpas.omnitel.net...
smtp imones, vietinis bet nematau priezasties kodel turetu su isoriniu
neveikt. (tikiuosi sia eilute pasikoregavot pagal savo smtp: =
"mail.xxxx.xxx")
siaip radau pvz su google smtp
http://www.blueclaw-db.com/access_email_gmail.htm
"Izno" <izno@good.lv> wrote in message
news:nbbqmc$kol$1@trimpas.omnitel.net...
>O smtp serveri vietini naudojat?
> kazkodel nesigauna, vis ismetineja smtp :/
>
> "toms" parašė naujienų news:nbbb28$bk2$1@trimpas.omnitel.net...
>
> Tai kad pas mane 7 ir veikia CDO
>
> Pastinu mano naudojama
>
> Sub CDO_Mail_Small_Text(Metai, sav, Fname, ToMail, FromMail, CCMail)
> Dim iMsg As Object
> Dim iConf As Object
> Dim strbody As String
> Dim Flds As Variant
>
> Set iMsg = CreateObject("CDO.Message")
> Set iConf = CreateObject("CDO.Configuration")
>
> iConf.Load -1 ' CDO Source Defaults
> Set Flds = iConf.Fields
> With Flds
>
> .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
> = 2
>
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> _
> = "mail.xxxx.xxx"
>
> .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
> = 25
> .Update
> End With
>
> strbody = "Labas rytas!"
> 'Exit Sub
>
> With iMsg
> Set .Configuration = iConf
> .To = ToMail
> .CC = CCMail
> .BCC = FromMail
> .from = FromMail
> .Subject = "Dokumentas uz " & Metai & "m. " & sav & " savaite"
> .TextBody = "Labas rytas!"
> .AddAttachment Fname
> .Send
> End With
>
> End Sub
>
>
>
> "CurrentUser" <ne_toks@yahoo.com> wrote in message
> news:nbb9s3$b2f$1@trimpas.omnitel.net...
>> Dėkui, Laimi.
>> Ačiū už supportą. Matau, dažnai padedi tautiečiams tiesos paieškose.
>> Pagarba tau.
>> Vakar dar iki postinant peržiūrėjau visas nuorodas iš "Ron de Bruin". Ir
>> supratau, kad visos jos liečia excelinio failo (viso failo, vieno lapo,
>> srities) siuntimą. Aš tą išbandžiau, važiuoja, bet man kaip tik to
>> nereikia.
>> Idėja yra tokia, kad excelinis failas guli kažkur serveryje, vienas
>> darbuotojas užpildo kažkokią tai informaciją ir išsaugant tą failą
>> siunčiamas paprastas tekstinis pranešimas per WLM nurodytu adresu, kad
>> esą yra pasikeitimų, prašom atkreipti dėmesį.
>> Gal galimi ir kitokie sprendimai.
>>
>>
>>
>>
>> "Laimis" wrote in message news:nba5uh$3l9$1@trimpas.omnitel.net...
>>
>> CurrentUser rašė:
>>
>>> Anksčiau dar buvo per CDO.dll, bet 7-uose, panašu, to nėra.
>>
>> Tai CDO:
>> https://support.microsoft.com/en-us/kb/171440
>>
>> Dar 'Outlook.Application' (akivaizdu, kad reikia instaliuoto outlook'o)
>>
>> Nors geriausia turbūt RDBMail:
>> https://blogs.msdn.microsoft.com/mvpawardprogram/2010/11/15/mvps-for-office-and-sharepoint-2010-excel-and-windows-live-mail/
>> http://www.rondebruin.nl/win/addins/rdbmail.htm
>> http://www.rondebruin.nl/win/section1.htm
>