Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel e mailto

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel e mailto

Postdi Gianpa12 » 18/12/14 00:31

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
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Sponsor
 

Re: Excel e mailto

Postdi Anthony47 » 19/12/14 01:07

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel e mailto

Postdi Gianpa12 » 26/01/15 00:28

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
Gianpa12
Utente Junior
 
Post: 68
Iscritto il: 28/06/10 10:10

Re: Excel e mailto

Postdi ricky53 » 26/01/15 14:23

Ciao,
conviene proseguire in una sola discussione.
Io consiglio di terminare qui con questa e proseguire con l'altra.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Excel e mailto

Postdi Anthony47 » 28/01/15 22:22

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel e mailto":


Chi c’è in linea

Visitano il forum: Marius44 e 12 ospiti