Alguém pode me explicar o código abaixo?

Preciso de código para enviar e-mail através do Outlook com um anexo através de uma macro do Excel. Por favor, ajudem?

Private Sub CommandButton10_Click()

Dim OutApp As Object
Dim OutMail como Object
Dim strbody As String

Set OutApp = CreateObject
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail:
.Para = "me@here.com"
.CC = ""
.BCC = ""
.Assunto = "Arquivo para #" & Chr(32) & Range("H4") & "foi atualizado."
.Corpo = "Por favor, revisão." & vbCrLf & vbCrLf & ActiveWorkbook.FullName
.Enviar
.ReadReceiptRequested = True
End With
Terminar com
On Error Goto 0

Set OutMail = Nothing
Set OutApp = Nothing

Dim Msg, Style, Title
Msg = "E-mail foi enviado" & Chr (13) & Chr (10) & "Pressione OK para continuar."
Estilo = vbOKOnly + vbInformation
Title = "Lista de questões em aberto"
Resposta = MsgBox (Msg, Estilo, Título, Ajuda, Ctxt)

End Sub.

Resposta

Como enviar e-mail através do Outlook com anexo através de uma macro do Excel

Se você precisa de código para enviar e-mail através do Outlook com um anexo usando uma macro do Excel, você pode usar o seguinte código.

Abra o Excel e pressione "Alt + F11" para abrir o Editor do Visual Basic.
No Editor do Visual Basic, insira o seguinte código na planilha desejada:

Sub EnvioEmailOutlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "Por favor, reveja o arquivo em anexo." & vbCrLf & vbCrLf & ActiveWorkbook.FullName
On Error Resume Next
With OutMail
    .To = "me@here.com"
    .CC = ""
    .BCC = ""
    .Subject = "Arquivo atualizado para #" & Chr(32) & Range("H4")
    .Body = strbody
    .Attachments.Add ActiveWorkbook.FullName
    .ReadReceiptRequested = True
    .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Email enviado com sucesso.", vbInformation
End Sub

Ao executar este código, o Excel irá enviar um e-mail através do Outlook com o arquivo atualizado anexado. Certifique-se de substituir "me@here.com" pelo endereço de e-mail do destinatário desejado e modificar o assunto de acordo com sua necessidade.

Espero que este código ajude a resolver sua necessidade de enviar e-mail com anexo através de uma macro do Excel. Se precisar de mais alguma coisa, por favor, não hesite em perguntar.