E' la prima volta che scrivo in questo utilissimo forum e vorrei ringraziare fin da subito tutti quelli che mi daranno un aiuto.
Ho messo in piedi una macro che spedisce una email ad un indirizzo di posta letto da una cella ma vorrei apportare una miglioria: è possibilie modificarla in modo che l'indirizzo di posta venga letto non da una cella ma dalla rubrica dei contatti di outlook
- Codice: Seleziona tutto
'Inizio blocco spedizione Ram'
Dim oOutlook As Outlook.Application
Dim oMessage As Outlook.Mailitem
Set oOutlook = CreateObject("Outlook.Application")
Set oMessage = oOutlook.CreateItem(olMailItem)
With oMessage
.To = Email <==variabile
.CC = "email@email.com"
.Subject = "Richiesta Acquisto Materiali"
.Body = "Come da oggetto Vi richiediamo i materiali qui descritti in allegato:"
.Attachments.Add "D:\Data\NRam.xls"
.Display
.Send
End With
oOutlook.Quit