Nepamenu detaliu, senai dariau.
Siaip persiunciu exceli su sia funkcija i kita PC nieko papildomai nesukisu 
ir be jokiu papildomu nustatymu veikia. Nebutinas suinstalinatas Outlookas 
ar kas nors kitas. Kasdien naudojasi ~30 zmoniu su skirtingom win,office 
versijom.

o sita funkcija naudojau kai reikejo siust per outlooka

Sub OutlookSend(subject_, body_, To_, From_, Optional Attachment_ = "", 
Optional CC_ = "", Optional BCC_ = "")
Dim OutApp, OutMail
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail

        .to = To_
        .CC = CC_
        .BCC = BCC_
        .Subject = subject_
        .body = body_
        .Attachments.Add Attachment_
        .Display   ' arba naudoji .Send kad iskart siustu.
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub