Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
FSimoes

Excel VBA - Enviar informações de celulas no corpo do e-mail

Recommended Posts

Boa tarde, tenho uma lógica que está funcionando plenamente, porém quero adicionar algumas informações.

Com este cógieo em VBA, ao alterar a coluna D(Pedido) para comprar ele envia um e-mail para mim informando que necessito abrir a planilha, quero acrescentar uma logica, que ao enviar o e-mail, também envie no corpo do e-mail as informações contidas na linha.

 

Ex:

CÓDIGO       DESCRIÇÃO                                                   QATUAL              PEDIDO 

1                    BUCHA DO CENTRADOR DE CARGALO     10 

2                    CABO FLEX 750V 1,00MM                              5                     Comprar

 

Ao ficar 'comprar' na coluna D do item de código 2, é enviado no copor do e-mail as informações dele(A2, B2 e C2).

e da mesma forma funcionar para quando tiver An, Bn e Cn, onde a coluna Dn, fique comprar envie essas informações contidas na linha n.

Segue o código:

Private Sub Worksheet_Calculate()

    Dim c         As Range
    Dim i         As Long
    Dim UL         As Long
    Dim bAlt      As Boolean
    
    UL = Cells(Rows.Count, 4).End(xlUp).Row
    
    On Error Resume Next
    If UBound(OldVal, 1) = 0 Then
        OldVal = Range("D2:D" & UL).Value2
    End If
    On Error GoTo 0
    
    i = 1
    
    For Each c In Range("D2:D" & UL)
        If c.Value2 <> OldVal(i, 1) And _
            c.Value2 = "Comprar" Then
            bAlt = True
        End If
        i = i + 1
    Next
    
    OldVal = Range("D2:D" & UL).Value2
    
    If bAlt = True Then
        Call EnviaEmail      
        bAlt = False
    End If
    
End Sub

Function EnviaEmail()
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
'Configura o smtp
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
'Configura a porta de envio de email
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
'Configura o email do remetente
Flds.Item(schema & "sendusername") = ""
'Configura a senha do email remetente
Flds.Item(schema & "sendpassword") = ""
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
   'Email do destinatário
   .To = ""
   'Seu email
   .From = ""
   'Título do email
   .Subject = "Isto é um teste de Envio de e-mail"
   'Mensagem do e-mail, você pode enviar formatado em HTML
   .HTMLBody = "Mensagem enviada com o gmail"
   'Seu nome ou apelido
   .Sender = "Teste"
   'Nome da sua organização
   .Organization = ""
   'e-mail de responder para
   .ReplyTo = ""
   Set .Configuration = iConf
   .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Function

 

Não sei se criei o tópico no local certo,

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×