Collegamento.Ipertestuale(): Inserire l'indirizzo mail contenuto in una cella in file msg preformattato

[Bruno.62]

Excel 2010.

Ciao al tutto il gruppo.
Problema: in un file di excel sono presenti tanti indirizzi mail più
altri dati in diverse colonne. e' anche presente il file modello di
Microsoft outlook denominato "03_Indirizzi.msg".
Con il seguente collegamento sono riuscito a far aprire il file da
inviare, ma non riesco a far scrivere l'indirizzo mail (unico indirizzo
per ora) in A destinatario, prendendo l'indirizzo da una cella del
foglio excel a fianco del collegamento ipertestuale. Non mi
dispiacerebbe inviare direttamente la meil facendo clic sul coll. ipert.
Grazie, Bruno


=COLLEG.IPERTESTUALE("C:\Users\954252aj\Desktop\PROVA
MAIL\03_Indirizzi.msg";C4)

---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus

[Vittorio]

"Bruno.62" ha scritto nel messaggio news:mvj1t3$p51$1...@speranza.aioe.org...

<=COLLEG.IPERTESTUALE("C:\Users\954252aj\Desktop\PROVA
<MAIL\03_Indirizzi.msg";C4)

Io farei il tutto via VBA sfruttando l'evento Worksheet_FollowHyperlink.

1)crea un collegam.ipertestuale che punta a se stesso (cioè alla stessa
cella) avente il testo da mostrare a piacere (per crearlo click dx sulla
cella e scegli Collegam. Ipertestuale) .

2) usa tale codice VBA : quando cliccherai tale link , verrà preparata e
mostrata la mail, inserendo come destinatario l'indirizzo di posta letto
dalla cella situata a destra del collegamento cliccato.


Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim OutApp As Object
Dim OutMail As Object
Dim emailRng As Range, cl As Range
Dim sTo As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Target.Parent.Offset(0, 1).Value
.Subject = "soggetto mail"
.Body = "corpo messaggio"
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[Bruno.62]

^^^^^^^^^^^^^^^^^
Grazie Vittorio, appenqa posso provo il tuo codice.
Preciso che la mail non cambia mai, cambia solo il destinatario.
Presumo che il percorso con la mail da aprire (mail già pronta con file
incollati nel corpo, con estensione msg) debba inserirlo in Set OutApp =
CreateObject("Outlook.Application")-
Grazie ancora
Bruno