Enviar email  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Enviar email

Mensagempor ecks » Sex Ago 10, 2018 5:21 pm

Boa noite, mais uma vez recorro à ajuda de vocês!

Preciso de uma rotina que crie um arquivo xls da planilha 02 e o envie por email, sem o uso do outlook.

Desde já agradeço a atenção e a pronta ajuda que sempre recebo!
Você não está autorizado a ver ou baixar esse anexo.
ecks
Membro
Membro
 
Mensagens: 39
Registrado em: Sex Ago 04, 2017 2:18 pm
Has thanked: 23 times
Have thanks: 1 time

{ SO_SELECT }

Re: Enviar email

Mensagempor wagner » Sex Ago 10, 2018 5:36 pm

ecks,

Boa tarde!

Por gentileza, seja mais específico.

1 - O que você chama de planilha 02?
2 - É a aba ENVIAR?
3 - Vai enviar toda a aba ENVIAR por email?
4 - Enviar como Excel ou como PDF?
5 - Enviar para quem? Qual o endereço de email?
6 - O endereço será inserido na planilha ou digitado?
7 - Se inserido na planilha, em qual célula?
8 - Vai enviar pelo outlook ou por outro aplicativo?
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4300
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1861 times

Re: Enviar email

Mensagempor ecks » Ter Ago 14, 2018 11:13 am

certo, perdoe meu equivoco.
1. minha pasta de trabalho tem duas abas 1. INICIO 2. ENVIAR
2 - Sim, é a aba enviar
3. sim, vou enviar toda aba enviar por email.
4. enviar como excel, como arquivo .xls
5. Os endereços serão inseridos na célula a1, a2, a3, a4 e a5 da aba inicio
6. Resposta acima
7. Resposta acima
8. vi umas rotinas na internet, mas não consegui sucesso, segundo os autores elas enviam diretamente pelo excel, essa é minha ideia, caso nao consiga essa enviareiu pelo outlook mesmo.

desde já, agradeço a atenção.
ecks
Membro
Membro
 
Mensagens: 39
Registrado em: Sex Ago 04, 2017 2:18 pm
Has thanked: 23 times
Have thanks: 1 time

Re: Enviar email

Mensagempor wagner » Ter Ago 14, 2018 2:11 pm

ecks,

Ok. Diretamente do Excel sem utilizar o outlook não sei como faz.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
ecks (Qua Set 26, 2018 11:03 am)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4300
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1861 times

Re: Enviar email  [Resolvido]

Mensagempor ecks » Qua Set 26, 2018 11:03 am

Código: Selecionar todos
Sub enviar_email_datacurta()

Dim iMsg, Cdo_Conf, Flds

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Cdo_Conf = CreateObject("CDO.Configuration")

'Variaveis

Dim servidor_smtp As String
Dim conta_autenticada As String
Dim senha_para_envio As String
Dim email_origem As String
Dim email_destino As String
Dim email_porta As Integer

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

servidor_smtp = "SERVIDOR SMTP" ' Informacoes so seu servidor SMTP
senha_para_envio = "SENHA" ' senha da conta de e-mail
email_origem = "REMETENTE" ' e-mail que indica de onde partiu a mensagem
email_destino = "PARA QUEM VAI" ' e-mail que vai receber as mensagens do formulario
email_assunto = "ASSUNTO DA MSG" ' Assunto do email
email_corpo = "CONTEÚDO DO EMAIL" ' Corpo do Email
email_porta = 465 ' porta smtp

Cdo_Conf.Fields.Item(sch & "sendusing") = 2
Cdo_Conf.Fields.Item(sch & "smtpauthenticate") = 1
Cdo_Conf.Fields.Item(sch & "smtpserver") = servidor_smtp
Cdo_Conf.Fields.Item(sch & "smtpserverport") = email_porta
Cdo_Conf.Fields.Item(sch & "smtpconnectiontimeout") = 60
Cdo_Conf.Fields.Item(sch & "sendusername") = email_origem
Cdo_Conf.Fields.Item(sch & "sendpassword") = senha_para_envio
Cdo_Conf.Fields.Item(sch & "smtpusessl") = True
Cdo_Conf.Fields.Update

Set Cdo_Mensagem = CreateObject("CDO.Message")
Set Cdo_Mensagem.Configuration = Cdo_Conf

Cdo_Mensagem.BodyPart.Charset = "iso-8859-1"
Cdo_Mensagem.From = email_origem
Cdo_Mensagem.To = email_destino
Cdo_Mensagem.Subject = email_assunto

'------Para anexar arquivo use uma das linguagens abaixo

'Cdo_Mensagem.AddAttachment ("C:\Envio\Arquivo das Lojas Envio.xlsm")

strBody = email_corpo

Cdo_Mensagem.HTMLBody = strBody

Cdo_Mensagem.Send

Set Cdo_Mensagem = Nothing
Set Cdo_Conf = Nothing

MsgBox "E-mail enviado com sucesso"

End Sub


Com essa rotina eu consegui enviar email diretamente de dentro do excel sem necessidade de outlook.
Agradeço a ajuda de sempre aqui.
ecks
Membro
Membro
 
Mensagens: 39
Registrado em: Sex Ago 04, 2017 2:18 pm
Has thanked: 23 times
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot], Mikel Silveira Fraga e 7 visitantes