No caso o e-mail seria hotmail, ou seja, terei que abrir a guia na internet e fazer o login ...

Ricardo, bom dia.

Sim, é possível. Através de um objeto CDO. O artigo abaixo certamente irá lhe ajudar:

http://www.ambienteoffice.com.br/officevba/enviar_e-mail_por_vba/

Só atente-se ao fato de que, para enviar anexos, você deverá incluir a linha abaixo antes do .Send:

      .AddAttachment 'Caminho e nome completo do  arquivo a ser anexado.  

Qualquer dúvida, estamos à disposição.

Att,

Gamboaisrael,

Primeiro obrigado pela resposta e desculpa a demora para responder. Estou meio ocupado esses dias
mas no decorrer dessa semana irei tentar sua sugestão e darei um retorno.

Mais uma vez obrigado!

Att,

Permaneço a disposição, Ricardo.

Att,

Gamboisrael

Tentei o código abaixo, mas esta dando erro "The transport failed to connect to the server" como o página
sugeriu tentei mudar o smtp de 25 para 465 porém o mesmo erro ocorre e não consigo enviar, segue o código
caso saiba o que estou errando ...

Sub EnviarEmailCDO()
    
    Dim oMensagem As Object
    Dim oConfiguração As Object
    Dim sCorpo As String
    Dim vFields As Variant

    Set oMensagem = CreateObject("CDO.Message")
    Set oConfiguração = CreateObject("CDO.Configuration")

        oConfiguração.Load -1 'Padrões CDO
        Set vFields = oConfiguração.Fields
        With vFields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            
            'Se quiser enviar um e-mail pelo Windows Live:
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"

            'Se quiser enviar um e-mail pelo Yahoo, substiua a linha acima por:
            '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= " smtp.mail.yahoo.com"

            'Se quiser enviar um e-mail pelo GMail, substiua a linha acima por:
            '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            
            'Abaixo você preencherá o nome do usuário. Se o seu e-mail é @hotmail, @xbox, @live,
            '@msn ou outros serviços associados à Windows Live, é necessário que você preencha
            'o seu endereço completo no campo abaixo.
            'Se você usa GMail, você deve suprimir o @gmail.com e no campo abaixo deixar apenas
            'o nome do usuário.
            'Em relação ao Yahoo, não testei porque não possuo uma conta. No entanto, provavelmente
            'é necessário especificar o endereço de e-mail completo uma vez que o Yahoo possui variações
            'como @yahoo.com, @yahoo.com.br, @yahoo.co.uk, entre outros.
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ricardo_07_9@hotmail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
            .Update
        End With

    sCorpo = "Olá mundo!" & vbNewLine & _
      vbNewLine & _
      "Esta é a linha 1." & vbNewLine & _
      "Esta é a linha 2." & vbNewLine & _
      "Esta é a linha 3." & vbNewLine & _
      "Esta é a linha 4." & vbNewLine
      
    With oMensagem
        Set .Configuration = oConfiguração
        .To = "ricardo_07_9@hotmail.com" 'mude aqui para alterar o destinatário
        .CC = "" 'com cópia
        .BCC = "" 'com cópia oculta
        .From = """Benzadeus"" <ricardo_07_9@hotmail.com>"
        .Subject = "Resultados Operacionais"
        .TextBody = sCorpo
        .AddAttachment = "D:Resultados-Operacional"
        .Send
    End With
End Sub

OBS: Deixei sem senha apenas aqui no post.

Att,