1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VBA codigo em excel

Discussão em 'Programação' iniciada por tromao, 12 de Julho de 2007. (Respostas: 0; Visualizações: 1868)

  1. tromao

    tromao Power Member

    Estou com um problema...

    Como podem ver pelo codigo em baixo, consigo abrir a email msg e copiar certos campos, no entatno não estou a conseguir preencher o CORPO da mensagem.Qu código deverei escrever para ele me fazer o paste do range ja antes copiado desde o excel?

    Abraço e desde ja mto obrigado.
    Código:
    Sub sendemail()
    '
    ' sendemail Macro
    '
    
    '
           
             Dim OutApp As Object
     Dim OutMail As Object
        Sheets("Plan2").Select
        Range("E96").Select
        ActiveCell.FormulaR1C1 = "=Plan1!R[-92]C[7]"
        Range("E96").Select
        Selection.AutoFill Destination:=Range("E96:E123"), Type:=xlFillDefault
        Range("E96:E123").Select
        
    If Range("plan1!d29").Value = "" Then
    
    Dim i As Integer
    For i = 116 To 123
    If Range("E" & i).Value = "" Then
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp
    End If
    Next i
    
          Range("e96:e123").Select
          Range("e96:e123").Copy
          
     Set OutApp = CreateObject("Outlook.Application")
     OutApp.Session.Logon
     Set OutMail = OutApp.CreateItem(0)
    
     On Error Resume Next
     With OutMail
     .From = "Lis-flightrelease"
     .To = ToAddressTxt
     .CC = "lis-flightrelease"
     .Subject = Range("e96")
    
    '------------------------------------------
    
     .Body = Range("e96:e123").paste
    
    '-----------------------------------------
     .Display
     End With
        
        
        Sheets("Plan1").Select
        Range("b11").Select
        
    Else
        
    For i = 117 To 123
    If Range("E" & i).Value = "" Then
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp
    End If
    Next i
    
          Range("e96:e123").Select
          Range("e96:e123").Copy
          
     Set OutApp = CreateObject("Outlook.Application")
     OutApp.Session.Logon
     Set OutMail = OutApp.CreateItem(0)
    
     On Error Resume Next
     With OutMail
     .From = "Lis-flightrelease"
     .To = ToAddressTxt
     .CC = "lis-flightrelease"
     .Subject = Range("e96")
     
     .Body = Range("e96:e123").Paste
     .Display
     End With
        
        
        Sheets("Plan1").Select
        Range("b11").Select
            
            End If
    End Sub
    
     
    Última edição pelo moderador: 13 de Julho de 2007

Partilhar esta Página