Sub belekas()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim StrSignature As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next
    With OutMail
        .To = ""                      ' TO gavejai
        .CC = ""                                                                              ' CC gavejai
        .BCC = ""                                                                             ' BCC gavejai
        .Subject = "Valiutu kursai " & Date                                                   ' Laisko pavadinimas
        .HTMLBody = "<font color=""1F497D"" face=""Calibri"" size=""3"">" & _
        "Laba diena,<br><br>" & _
        "lalalLALAa." & CInt(Format(Date, "ww", 1) - 1) & "sav." & _
        "<br><br>parasas" & _
        "</font>"                                                                             ' Laisko tekstas

        '.Attachments.Add ("C:\test.txt")                                                     ' prikabinti dokumenta
        '.Attachments.Add DestWB.FullName                                                     ' prikabinti atidaryta dokumenta
        .Display                                                                              ' rodyti laiska
        '.send                                                                                ' siusti laiska
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub