Excel e gli applicativi Microsoft Office Mantere hyperlink in corpo mail Outlook

LoginRegistrati
Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
  • Autore
    Articoli
  • #29756 Risposta

    Salve,premesso che non sono ferratissimo quindi chiedo aiuto a voi :).

    Utilizzo una macro per inviare una tabella da un foglio excel,il tutto funziona a discapito però delle celle contenenti testo con hyperlink in quanto nel corpo della mail li copia solo come testo.

    Vorrei sapere se ci fosse la possibilità di mantenere i vari link relativi alle celle anche nel corpo della mail?

    Sub Send_Email()
        
        Dim OutApp As Object
        Dim OutMail As Object
        Dim Update As Range
        
        
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        
    
    
    Set Update = Sheets("Mail").Range(Cells(1, 1), Cells(86, 10))
    
    
    
    
    On Error Resume Next
       With OutMail
       .To = ""
       .CC = ""
       .Subject = ""
       .HTMLBody = RangetoHTML(Update)
       .Display
       
       
    End With
        
                
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub
    #29765 Risposta
    Marius44
    Marius44
    Moderatore
      34 pts

      Ciao

      Non Outlook e non posso provare. Un tentativo potrebbe essere il seguente:

      invece di Set Update = Sheets("Mail").Range(Cells(1, 1), Cells(86, 10))

      copia/incolla l'intervallo (magari specificando xlPasteAll

       

      Ciao,

      Mario

    LoginRegistrati
    Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
    Rispondi a: Mantere hyperlink in corpo mail Outlook
    Gli allegati sono permessi solo ad utenti REGISTRATI
    Le tue informazioni:



    vecchio frac - 2750 risposte

    albatros54
    albatros54 - 1052 risposte

    patel
    patel - 1045 risposte

    Marius44
    Marius44 - 943 risposte

    Luca73
    Luca73 - 757 risposte