Função para enviar ...
 
Notifications
Clear all

Função para enviar e-mail

4 Posts
2 Usuários
0 Reactions
1,214 Visualizações
(@kamuyi)
Posts: 10
Active Member
Topic starter
 

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 ?!

 
Postado : 04/01/2013 11:19 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 04/01/2013 1:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 08/01/2013 2:10 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

 
Postado : 10/01/2013 4:20 pm