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?

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,

Ok. Diretamente do Excel sem utilizar o outlook não sei como faz.

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:EnvioArquivo 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.