Skip to main content

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

Sub MandaEmail()

Sub MandaEmail()
    
    Dim EnviarPara As String
    Dim Mensagem As String
    For i = 1 To 1
        EnviarPara = Worksheets("Tabela").Cells(5, 35)
        If EnviarPara <> "" Then
            Mensagem = Worksheets("Tabela").Cells(6, 35)
            Texto = Worksheets("Tabela").Cells(7, 35)
            Envia_Emails EnviarPara, Mensagem
        End If
    Next i
End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = EnviarPara
        .CC = ""
        .BCC = ""
        .Subject = Mensagem
        .Body = "Bom dia"
        .Display ' para envia o email diretamente defina o código  .Send
    End With
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = Mensagem .Body = "Bom dia" .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

Sub MandaEmail()

Dim EnviarPara As String
Dim Mensagem As String
For i = 1 To 1
    EnviarPara = Worksheets("Tabela").Cells(5, 35)
    If EnviarPara <> "" Then
        Mensagem = Worksheets("Tabela").Cells(6, 35)
        Texto = Worksheets("Tabela").Cells(7, 35)
        Envia_Emails EnviarPara, Mensagem
    End If
Next i

End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = Mensagem .Body = "Bom dia" .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

Sub MandaEmail()
    
    Dim EnviarPara As String
    Dim Mensagem As String
    For i = 1 To 1
        EnviarPara = Worksheets("Tabela").Cells(5, 35)
        If EnviarPara <> "" Then
            Mensagem = Worksheets("Tabela").Cells(6, 35)
            Texto = Worksheets("Tabela").Cells(7, 35)
            Envia_Emails EnviarPara, Mensagem
        End If
    Next i
End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = EnviarPara
        .CC = ""
        .BCC = ""
        .Subject = Mensagem
        .Body = "Bom dia"
        .Display ' para envia o email diretamente defina o código  .Send
    End With
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub
adicionou 927 caracteres ao conteúdo
Fonte Link
John Hebert
  • 147
  • 1
  • 3
  • 12

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

Sub MandaEmail()

Dim EnviarPara As String
Dim Mensagem As String
For i = 1 To 1
    EnviarPara = Worksheets("Tabela").Cells(5, 35)
    If EnviarPara <> "" Then
        Mensagem = Worksheets("Tabela").Cells(6, 35)
        Texto = Worksheets("Tabela").Cells(7, 35)
        Envia_Emails EnviarPara, Mensagem
    End If
Next i

End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = Mensagem .Body = "Bom dia" .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )

Sub MandaEmail()

Dim EnviarPara As String
Dim Mensagem As String
For i = 1 To 1
    EnviarPara = Worksheets("Tabela").Cells(5, 35)
    If EnviarPara <> "" Then
        Mensagem = Worksheets("Tabela").Cells(6, 35)
        Texto = Worksheets("Tabela").Cells(7, 35)
        Envia_Emails EnviarPara, Mensagem
    End If
Next i

End Sub Sub Envia_Emails(EnviarPara As String, Mensagem As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = EnviarPara .CC = "" .BCC = "" .Subject = Mensagem .Body = "Bom dia" .Display ' para envia o email diretamente defina o código .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

Fonte Link
John Hebert
  • 147
  • 1
  • 3
  • 12

Gerar um aquivo e anexar no e-mail com vba

fiz uma macro onde ela abre o outlook, até ai beleza. agora preciso complementar ela com o seguinte itens.

Preciso pegar 4 abas da minha planilha, gerar um novo arquivo e depois anexar no e-mail e enviar.

Alguem pode me ajudar?

segue o codigo ( esse codigo só abre o excel )