Chi mi può aiutare? Volevo sapere come poter inserire in un resto di mail un foglio Excel al chi interno ci sono delle tabelle ( vorrei mantenere anche il formato)
https://wetransfer.com/downloads/f12c4e039a0ee7b3645928d492d3931320180803212539/6e0f8d72c63dd367f350608036d801d020180803212539/10d490
questo è il codice che ho fatto, ma non mi mette nulla nel testo
- Codice: Seleziona tutto
Function All_Adr(ByRef CollAdd As Range) As String
Dim oCell As Range, eAdr
'
For Each oCell In CollAdd
If oCell <> "" Then
eAdr = eAdr & "; " & oCell
Else
Exit For
End If
Next oCell
All_Adr = Mid(eAdr, 3)
End Function
Dim OutApp As Object, OutMail As Object
'
'Creazione mail:
Set OutApp = CreateObject("Outlook.Application")
Subj = "Rilavorazione " & " " & Format(Now + 1, "dd-mm-yy") '<<< OGGETTO DELLA MAIL
Set OutMail = OutApp.CreateItem(0)
With OutMail
Sheets("Testo").Visible = True
.body = All_Adr(Sheets("Testo").Range("A1:A200"))
Sheets("Testo").Visible = False
.to =
.CC = '<<<
'.BCC = '<<<
.Subject = Subj
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
'
End Sub