Ciao a tutti
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)
Moderatori: m.paolo, antoo69, -> EleKtrA <-
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
'.Attachments.Add Environ("Temp") & "\SIM.xlsx"
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
'
End Sub
Torna a Sistemi Operativi Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 57 ospiti