Boa Tarde, sou Marcos Albertson, moro na BAHIA.

Tenho um formulário no Exel, mas preciso que ao preencher o formulário eu posso enviar as informações das Textbox, por email.. tenho o código abaixo para envio do email sem necessidade do outlook, e preciso que na área de email do Destinario, Assunto e no corpo do email ... apareçam as informações que estão preenchida no meu formulário. segue código para envio do email.. quem precisa tbm do código pode usar esta funcionando muito bem... peguei com o Professor Darlan.

Sub email_gmail()
 
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 = "smtp.gmail.com" ' Informacoes so seu servidor SMTP
senha_para_envio = "SENHA DO EMAIL" ' senha da conta de e-mail
email_origem = "EMAIL DO REMETENTE" ' e-mail que indica de onde partiu a mensagem
email_destino = "EMAIL DE DESTINO" ' e-mail que vai receber as mensagens do formulário
email_assunto = "Autorização para Abastecimento"  ' Assunto do email
email_corpo = "Teste corpo 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 (ThisWorkbook.Path & "EnvioArquivo das Lojas Envio.xlsm")
   'ou
'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