Re: Send mail from VBA [CurrentUser @ 2016-03-04 14:17:09]

Tema: Re: Send mail from VBA
Autorius: CurrentUser
Data: 2016-03-04 14:17:09
Sveiki,

Dėkui už gelb.ratą, bet 'shit' - negaliu pasitikrint, pirmąkart matau, kad 
VBA "neepripažįsta" procedūros, jei ji turi argumentų. Paprastą (be 
argumentų vykdo, o su argumentais nemato net Macros lange. WTF?

"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
>