Excel e mailto

[Gianpa12]

Ciao a tutti,

sono su Excel e ho due macro. La prima si chiama Macro1 e l'altra si chiama Macro3 che di seguito scrivo:

La Macro1 è:

Codice: Seleziona tutto

Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+f
'
    Application.OnTime Now + TimeValue("00:00:05"), "Macro3"
    bln = True
    Application.OnTime Now + TimeValue("00:00:10"), "Macro3"
    bln = True
    Application.OnTime Now + TimeValue("00:00:15"), "Macro3"
    bln = True
    Application.OnTime Now + TimeValue("00:00:20"), "Macro3"
    bln = True
    Application.OnTime Now + TimeValue("00:00:25"), "Macro3"
    bln = True
End Sub

La Macro3 è

Codice: Seleziona tutto

Sub Macro3()
'
' Macro3 Macro
'
' Scelta rapida da tastiera: CTRL+d
'
    ActiveCell.Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Ho una colonna in Excel in cui in ogni cella c'è un indirizzo internet www. ... (attenzione: non ci sono indirizzi email nella colonna) e posizionandomi all'inizio della colonna e facendo Control+F, excel mi apre su chrome ogni 5 secondi l'indirizzo internet corrispondente.

Le due macro funzionano perfettamente se nella cella c'è un indirizzo internet (www. ...). Ma invece non funziona se in una cella c'è un collegamento ipertestuale come questo:

Codice: Seleziona tutto

+COLLEG.IPERTESTUALE("mailto:"&A2&"?subject=CV&body="&F2&"%0D%0A......(altro testo).........","Send")

(nota: A2 è un indirizzo email; F2 è un frase ti testo)

Tale collegamento ipertestuale se lanciato manualmente con un click funziona. Invece non funziona se voglio lanciarlo con la macro facendo Control+F. Nella colonna che mi interessa ci saranno solo collegamenti ipertestuali come quello indicato e non ci saranno più indirizzi internet (www. ...).

Come posso correggere le due macro per farle funzionare anche con il collegamento ipertestuale?

Il Debug mi segnala l'errore sulla Macro3 e più precisamente su questa riga:

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Grazie infinitamente per l'aiuto.

Gianpa

[Anthony47]

Hummm... secondo me non hai detto tutto...
Comunque prova usando questo codice per Macro3:

Codice: Seleziona tutto

Sub Macro3()
ActiveCell.Select
If Selection.Hyperlinks.Count > 0 Then
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Else
    If InStr(1, Selection.Formula, "hyperlink", vbTextCompare) > 0 Then
        scr = "mailto:" & ActiveCell.Offset(0, -1).Value & "?subject=CV&body=" & ActiveCell.Offset(0, 4).Value & "%0D%0A......(altro testo)........."
        ActiveWorkbook.FollowHyperlink scr
    End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub


Ho ipotizzato che la colonna in cui ci sono gli indirizzi dei siti o le formule COLLEG.IPERTESTUALE sia la B; se e' un' altra devi adattare gli "offset" di colonna nel codice che ti ho dato.

Ciao

[Gianpa12]

Grazie mille della risposta e scusa del ritardo della mia risposta.

La macro che mi hai suggerito è un ottimo passo in avanti ma ha il problema che nella pagina che si apre c'è scritto quello che scritto nella macro ed invece ci deve essere scritto quello che c'è scritto nella formula collegamento ipertestuale in Excel.

Provo ad essere più chiaro: in una cella excel c'è la formula +colleg.ipertestuale("mailto:pluto@gmail.com"... Gentile Sig. Pluto sono lieto di ... bla bla bla).

Quando clicco con il mause su tale cella, allora si apre una pagina nuova già compilata della mia posta elettronica e basta che io clicchi "invia posta" e la email parte verso pluto@gmail.com.

A me serve una macro che una volta azionata (CTRL+d) mi apra tale pagina della mia email come se io avessi fatto click sulla cella excel dove c'è la formula colleg.ipertestuale(...).

La macro che ho fatto è la seguente ma funziona solo se nella cella c'è un indirizzo web (www. ...) ma non funziona se c'è una formula +colleg.ipertestuale(...). Sapete dirmi dove è l'errore nella macro. Ecco la macro:

Sub Macro3()
'
' Macro3 Macro
'
' Scelta rapida da tastiera: CTRL+d
'
ActiveCell.Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Grazie molte.

Gianpaolo

[ricky53]

Ciao,
conviene proseguire in una sola discussione.
Io consiglio di terminare qui con questa e proseguire con l'altra.

[Anthony47]

La macro che avevo pubblicato si comporta in questo modo:
-se la cella selezionata contiene un hyperlink che punta a un indirizzo web, apre la pagina web
-se la cella selezionata contiene una istruzione "Colleg.Ipertestuale" allora viene
---usando il programma di posta predefinito
---imposta una mail in partenza
---indirizzata all' indirizzo contenuto nella colonna a A della riga selezionata
---con il testo composto da una parte prelevata da colonna F della riga selezionata
---piu' il testo " ......(altro testo).........", su una nuova riga

Mi pare che questo sia quello che chiedevi.

Come avevo gia' scritto, " Ho ipotizzato che la colonna in cui ci sono gli indirizzi dei siti o le formule COLLEG.IPERTESTUALE sia la B; se e' un' altra devi adattare gli "offset" di colonna nel codice che ti ho dato".

Non ho seguito l' altra discussione (viewtopic.php?f=26&t=103819) per cui non so se essa e' la continuazione di questa; anzi a uno sguardo veloce mi sembra una replica della domanda posta qui.

Ciao