Home Excel - Downloads / Areas Restritas Excel VBA - Envia Email

Excel VBA - Envia Email

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba emails funcoes estraem endereco email Excel planilha vba emails funcoes estraem endereco email

    popular!
    Adicionado em: 29/10/2011
    Modificado em: 29/10/2011
    Tamanho: 103.56 KB
    Downloads: 2055

    Saberexcel - o site de quem precisa aprender macros microsoft excel vba

    Essas Funções do Aplicativo Microsoft Excel VBA, retornam um endereço de e-mail, observem que as funções personalizadas buscam por determinado caracter em algum lugar em uma frase, note que na primeira função busca o caracter (- ) ifem, quanto no segundo exemplo de função busca pelo caracter (@) Arroba. Os exemplos abaixo são muito úteis para quem lida com muitos nomes de emails que talvez estejam em meio a determinadas frases:
    Espero que os exemplos de Função possam lhes ser útil. Fique com Deus, Expedito Marcondes

    Essa função extrai uma determinada palavra de uma frase baseado em algum caracteres especificado no Macro por exemplo a frase:
    CELULA (J2) = "Aprenda Microsoft excel vba, sozinho, praticando com os produtos didáticos saberexcel -
    contato@saberexcel.com.br - "
    Observe que nesta frase a função irá buscar o Caracter ( - ) traço (ifem)), e retornará o email.
    contato@saberexcel.com.br
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
    Function ExtrairElementos
    (Texto, n, Separator) As String
    ExtrairElementos = Split(Application.Trim(Texto), Separator)(n - 1)
    End Function

    USO CORRETO DA FUNÇÃO:
    =ExtrairElementos(J2;2;"-")



    OUTRA FUNÇÃO FUNÇÃO EXTRAI TEXTOS(EMAILS) DEPENDENDO DO CARACTER ESCOLHIDO.
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Observe bem, se voce tem uma frase como esta (apenas exemplo), a função ira busca pelo caracter
    '@' e retornará o endereço de email contido na frase. (muito útil para quem trabalha com muitos emails)
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    USO CORRETO DA FUNÇÃO:
    Celula D7 = 'Aprenda macros, fórmulas e funções
    contato@saberexcel.com.br, produtos didáticos saberexcel'
    Fórmula usada: SE(D7="";"";SE( ExtrairENDERECOEMAIL(D7)="";"NÃO HÁ EMAILS"; ExtrairENDERECOEMAIL(D7)))
    veja que que a função tem duas condições, porém poderá usar somente uma:
    '=ExtrairENDERECOEMAIL(D7).
    '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Function ExtrairENDERECOEMAIL(s As String) As String
    Dim LocalizacaoARROBA As Long
    Dim vCONTADOR As Long
    Dim textoTEMP As String
    Const listaCARACTER As String = "[A-Za-z0-9._-]"

    'Obtendo a localização do caracter
    '@' arroba
    LocalizacaoARROBA = InStr(s, "@")
    If LocalizacaoARROBA = 0 Then
    ExtrairENDERECOEMAIL = "" 'not found
    Else
    textoTEMP = ""

    'Obtendo o primeiro endereço de email
    For vCONTADOR = LocalizacaoARROBA - 1 To 1 Step -1
    If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
    textoTEMP = Mid(s, vCONTADOR, 1) & textoTEMP
    Else
    Exit For
    End If
    Next vCONTADOR
    If textoTEMP = "" Then Exit Function

    'obtendo o segundo endereco de email
    textoTEMP = textoTEMP & "@"
    For vCONTADOR = LocalizacaoARROBA + 1 To Len(s)
    If Mid(s, vCONTADOR, 1) Like listaCARACTER Then
    textoTEMP = textoTEMP & Mid(s, vCONTADOR, 1)
    Else
    Exit For
    End If
    Next vCONTADOR

    End If

    'Remover ponto a direita se por ventura existir

    If Right(textoTEMP, 1) = "." Then textoTEMP = _
    Left(textoTEMP, Len(textoTEMP) - 1)
    ExtrairENDERECOEMAIL = textoTEMP
    End Function



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
    http://www.microsoftexcel.com.br
    e saberexcel.com







     


    Excel planilha vba envia plan anexo Excel planilha vba envia plan anexo

    popular!
    Adicionado em: 02/12/2011
    Modificado em: 02/12/2011
    Tamanho: 33 KB
    Downloads: 1743
    Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) envia um email com anexo de determinada planilha(desejada),
    para vários emails contendo no corpo da folha planilha o range especificado para envio.

    Sub sbx_envia_anexo_email_planilha_desejada()
    Dim vNovoArquivo As Workbook
    Dim vPlanAtiva As Worksheet
    Dim vNovaPlanilha As Integer
    Dim sbEnviarPlanilha As String
    Dim txArquivoExiste As String
    Dim sbExcluirArqTemporario As String
    Dim vDestino, vTitulo As String
    Dim vLinCol, i As Long
    Dim txArquivoNumero As Long
    '- - - - - - - - - - - - - - - - - - -
    ''salva o arquivo como (Excel 2010)
    'txArquivoExiste = ".xlsb": txArquivoNumero = 50
    'txArquivoExiste = ".xlsx": txArquivoNumero = 51
    'txArquivoExiste = ".xlsm": txArquivoNumero = 52
    '- - - - - - - - - - - - - - - - - - -
    'vamos utilizar o formato (51) (xlsx)
    txArquivoExiste = ".xlsx": txArquivoNumero = 51

    'Instrução exibe o número de planilhas automaticamente inseridas em novas pastas de trabalho
    vNovaPlanilha = Application.SheetsInNewWorkbook

    'aqui definimos somente a planiha na ordem para nosso arquivo desejado
    Application.SheetsInNewWorkbook = 1

    With Sheets("Meus_Contatos")
    vLinCol = .Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To vLinCol
    vDestino = .Cells(i, 1).Value
    vTitulo = .Cells(i, 2).Value

    'vamos definir a planilha que se tonará ativa
    Set vPlanAtiva = Sheets("Pagamento_Janeiro_2014")
    On Error Resume Next

    'Sheets(CStr(vPlanAtiva)).Select
    'usamos a instrução set para variavel para expandir para mais tres colunas
    'vamos copiar somente os dados filtrados como (setamos) acima
    Plan2.Range("A1:H8").Copy

    'Aqui vamos definir a folha de planiha do livro que enviaremos anexo em nosso email,
    'observem que poderá ser qualquer folha de planilha
    sbEnviarPlanilha = "Pagamento_Janeiro_2014"
    Plan2.Select
    'vamos adicionar ou criar um novo arquivos(wkb) no aplicativo excel
    Set vNovoArquivo = Application.Workbooks.Add

    'vamos fazer uma cola especial e colar somente os valores em nossa planilha ativa que será formatada.
    With ActiveSheet
    .Range("A1").Value = "Agora - ( " & Date & " Dia de pagamento contas....)"
    .Range("A4").PasteSpecial Paste:=xlPasteValues
    .Range("A4").PasteSpecial Paste:=xlPasteFormats
    .Range("A:I").Columns.AutoFit
    End With

    Application.CutCopyMode = False
    'vamos definir o nome da folha de planilha para a folha de planilha copiada

    With ActiveSheet
    .Name = sbEnviarPlanilha
    .Range("A1").Select
    End With

    'essa linha de código enibe a mensagem do aplicativo excel
    Application.DisplayAlerts = False

    'vamos salvar nosso arquivo com o nome da folha de planilha que foi copiada no formato 2010 - xlsx (51)
    vNovoArquivo.SaveAs Filename:=ThisWorkbook.Path & "\" & "" & sbEnviarPlanilha & txArquivoExiste, FileFormat:=txArquivoNumero
    sbExcluirArqTemporario = vNovoArquivo.FullName

    'vamos enviar nosso arquivo para o email desejado
    vNovoArquivo.SendMail vDestino, vTitulo

    'Fechando o arquivo novo, observe que usei aqui Close e não Quit(Fecha todo Aplicativo)
    vNovoArquivo.Close

    'Instrução Kill deletará nosso arquivo temporariamente criado para o envio do email.
    Kill sbExcluirArqTemporario

    Next i
    End With

    'Instrução exibe o número de planilhas automaticamente inseridas em novas pastas de trabalho
    Application.SheetsInNewWorkbook = vNovaPlanilha
    End Sub
    ' - - - - - - - - -
    'deseja entrar em contato equipe saberexcel
    'esse macro abre a página de contato do site SaberExcel.
    Sub contato_equipe_saberexcel()
    Dim Resposta As String
    Resposta = MsgBox("deseja entrar em contato equipe saberexcel atraves do site?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
    If Resposta = vbYes Then
    Application.DisplayAlerts = False
    ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/index.php/contato-duvidas-excel.html", , True
    End If
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

     

    Excel vba planilha email decompor nomes e servidor de emails Excel vba planilha email decompor nomes e servidor de emails

    popular!
    Adicionado em: 03/02/2013
    Modificado em: 03/02/2013
    Tamanho: 37.55 KB
    Downloads: 563

    Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

    Esse procedimento do Aplicativo Microsoft Excel VBA, usando Evento de folha de Planilha Evento Worksheet_Change() ao escrever
    em determinada coluna, o procedimento usando a Função Split, decompõe um endereço de email em nome e servidor,
    sendo que o Servidor irá para uma coluna e o nome para outra pré-determinada no procedimento(macro)


    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
    If InStr(1, Target, "@") > 0 Then
    Range("K" & Target.Row) = Split(Target, "@")(0)
    Range("M" & Target.Row) = Split(Target, "@")(1)
    Range("E" & Target.Row).Font.Size = 8
    End If
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




    Excel vba planilha email envia anexo e corpo Excel vba planilha email envia anexo e corpo

    popular!
    Adicionado em: 03/02/2013
    Modificado em: 03/02/2013
    Tamanho: 37.49 KB
    Downloads: 798

    Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

    'Esse macro envia email com anexo para vários emails,
    'insere dados no corpo do email e dados no corpo, mude o caminho do direto do arquivo
    ou planilha para realização do seu teste que for enviar anexo para os emails que relacionar no macro.
    Fique com Deus, Expedito Marcondes.

    '- - - - - - - - - - - - - - - -
    Sub ENVIAR_EMAIL_ADD_PLANILHA()
    Dim MyOlapp As Object, MeuItem As Object
    Set MyOlapp = CreateObject("Outlook.Application")
    Set MeuItem = MyOlapp.CreateItem(olMailItem)
    With MeuItem
    .to = ("xlplanilhas@msn.com;xleves@msn.com")
    .Subject = "RELATORIO: PAGAMENTOS DE JANEIRO/2020"
    .Body = "Bom dia Sr." & Plan1.[d1].Value & vbCrLf & _
    "Anexo estamos lhe enviando a planilha Relatório" & vbCrLf & _
    "Janeiro/2020 " & _
    "Saudações " & vbCrLf & _
    Plan1.[D2].Value
    'troque o diretorio do documento que queira enviar 'add' anexo.
    .Attachments.Add "C:\SaberExcel\decompor_treina_email.xlsm"
    .Display
    End With
    End Sub
    '- - - - - - - - - - - - -'- - - - - - - - - - - - -





    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





    Excel_planilha_vba_envia_tb_corpo_email Excel_planilha_vba_envia_tb_corpo_email

    popular!
    Adicionado em: 07/12/2012
    Modificado em: 07/12/2012
    Tamanho: 35.95 KB
    Downloads: 845

    Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

    Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), envia uma tabela do excel no corpo do email
    essa planiha faz parte das planilhas da área exclusiva para assinantes Saberexcel
    (todos os dias uma nova publicação) são milhares de planilhas.

    Sub enviar_planilha_corpo_email()
    Application.ScreenUpdating = False
    Range ("vIntervalo").Copy Destination:=EscolaSaberExcel.Range("A1")
    EscolaSaberExcel.Select
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
    .Introduction = "ESCOLA SABEREXCEL VBA ESTUDOS"
    .Item.To = "
    contato@saberexcel.com"
    .Item.Subject = "PRODUTOS DIDÁTICOS MS EXCEL VBA"
    .Item.Send
    End With
    ActiveCell.Activate
    MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Escola SaberExccel VBA Estudos®"
    Application.ScreenUpdating = True
    End Sub

    Private Sub Adicionar_Planilha_Click()
    ActiveSheet.Copy Before:=Sheets(1)
    Sheets(1).Range("C3").Value = Sheets(1).Range("C3").Value + 14
    End Sub

    Private Sub Enviar_Click()
    Call enviar_planilha_corpo_email
    End Sub

    Private Sub cmdRENOMEARPLAN_Click ()
    ActiveSheet.Name = ActiveSheet.Range("F4").Value
    MsgBox ("Planilha renomeada [ " & ActiveSheet.Range("F4").Value & " ] com sucesso"), vbInformation, "Escola Saberexcel VBa Estudos®"
    End Sub

    //=======' na folha de código da folha de Planilha
    Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.Name = ActiveSheet.Range("F4").Value
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





    baixe o exemplo de planilha contendo os macros acima.

    Página 1 de 2

    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA