MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    E-mail pelo excel via outlook

    avatar
    Jsoldado
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 13/12/2013

    E-mail pelo excel via outlook Empty E-mail pelo excel via outlook

    Mensagem  Jsoldado 13/12/2013, 19:54

    Boa tarde! Pessoal...

    tenho este código para passar e-mails pelo excel e estar funcionando bem, porem preciso que mude a cada e-mail enviado o remetente, já tentei colocar o from mas não certo. alguem pode me ajudar...
    segue o codigo abaixo:

    Private Sub Worksheet_Change(ByVal Target As Range)
       
       Dim OutApp As Object
       Dim OutMail As Object
       Dim texto As String
     
       Set OutApp = CreateObject("Outlook.Application")
       Set OutMail = OutApp.CreateItem(0)
       
             
       linha = ActiveCell.Row - 1
       If Target.Address = "$N$" & linha Then

           If Plan3.Cells(linha, 14) = "OK" Then
         
              texto = "Cliente: " & Plan3.Cells(linha, 3) & " - " & Plan3.Cells(linha, 4) & vbCrLf & _
                       "Fonte: " & Plan3.Cells(linha, 5) & _
                       "               Pagina: " & Plan3.Cells(linha, 6) & "           Data do Jornal: " & Plan3.Cells(linha, 7) & vbCrLf & _
                       "Titulo: " & Plan3.Cells(linha, Cool& vbCrLf & _
                       "Detalhe: " & Plan3.Cells(linha, 9) & vbCrLf & _
                       "Observação: " & Plan3.Cells(linha, 10) & vbCrLf & _
                       "" & vbCrLf & Plan3.Cells(linha, 11) & vbCrLf & "" _

           End If

           With OutMail
                       
               .To = Plan3.Cells(linha, 13)
               .CC = ""
               .BCC = ""
               '.From = Plan3.Cells(linha, 18)' ==> isso não funciona
               .Subject = "Processo: " & Plan3.Cells(linha, 12)
               .Body = texto
               .Display  'Utilize Send para enviar o email sem abrir o Outlook - (Display)'
           End With
           On Error GoTo 0

           Set OutMail = Nothing
           Set OutApp = Nothing
         
       End If

    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3937
    Registrado : 21/04/2011

    E-mail pelo excel via outlook Empty Re: E-mail pelo excel via outlook

    Mensagem  Marcelo David 14/12/2013, 13:38

    Amigo Jorge, seja benvindo.

    Observe que aqui é um fórum exclusive para Access.
    Terás mais chances de ter sua resposta em um fórum Excel, e tem vários.

    Um que eu recomendo é: http://www.planilhando.com.br/forum/

    Forte abraço!


    .................................................................................
    E-mail pelo excel via outlook Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    E-mail pelo excel via outlook Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    E-mail pelo excel via outlook Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    E-mail pelo excel via outlook Marcel11

      Data/hora atual: 8/10/2024, 19:22