Boa Tarde a Todos!!!,
Tenho uma duvida, estou precisando enviar dados de uma planilha via e-mail. existe a função sendmail porem ela envia a planilha em anexo!!! gostaria de enviar os dados da planilha!! direto no e-mail...alguem sabe se há algum modo ?!
Boa tarde!!
Se sua questão é VBA, está no lugar errado.
O código abaixo deve ter uma similaridade com seu caso....tente adaptar.
Sub SendEmail() 'Macro Purpose: To send an email through Outlook Dim objOL As Object Dim objMail As Object Dim sEmail As String Dim sEmailColumn As String Dim sSubject As String Dim sBody As String Dim lDataRow As Long Dim cl As Range 'Set column with email address sEmailColumn = "Q" For Each cl In Selection.Resize(, 1) 'Generate required info lDataRow = cl.Row 'Check if remediation required If cl.Parent.Range("L" & lDataRow).Value = "Urgent" Then With cl.Parent sEmail = .Range(sEmailColumn & lDataRow) sSubject = "Agreement " & .Range("B" & lDataRow) & " requires urgent remediation!" sBody = "Remediation Required:" & vbNewLine & .Range("H" & lDataRow) & _ vbNewLine & vbNewLine & "Advisors Comments:" & vbNewLine & .Range("N" & lDataRow) & _ vbNewLine & vbNewLine & "Management Comments:" & vbNewLine & .Range("O" & lDataRow) End With 'Turn on error handling On Error GoTo Cleanup 'Bind to Outlook Set objOL = CreateObject("Outlook.Application") 'Create a new email and send it Set objMail = objOL.CreateItem(0) '0=olmailitem With objMail .To = sEmail .Subject = sSubject .Body = sBody .Display End With End If Next cl Cleanup: 'Release all objects Set objMail = Nothing Set objOL = Nothing On Error GoTo 0 End Sub
Leia também
http://www.rondebruin.nl/mail/folder3/mail4.htm
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Kamuyi,
Tenho um modelo que envia a área marcada (selecionada) no excel pelo hotmail. Bem útil pra quem precisa mandar imagens de intervalos (áreas) de planilhas sem precisar abrir o navegador.
Se for o caso avise.
Abs,
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
você não menciona o tipo de emaill, se for o notes , posso lhe fornecer o codigo...
basta dar um alo....
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel