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