Macro invio email Problema

Hai un problema con Excel?

Nuova discussione

Macro invio email. Problema
di Marco (utente non iscritto) data: 08/02/2016 21:54:53
Ciao a tutti. Ho creato una semplice macro che crea un nuovo messaggio con windows live mail, preleva dalle celle excel il destinatario, l'oggetto ed il testo dell'email e li inserisce nel nuovo messaggio appena creato. Inoltre in automatico esegue la funzione allega file. Il tutto gira su di un pc con win7 ed explorer 9. La stessa macro su di un altro pc con win 7 ed explorer 11 si blocca quando tento di dare il comando per inserire gli allegati. Penso si tratti di una protezione di windows che impedisce alla macro di eseguire il comando, ma non saprei come annullare questo blocco. Qualcuno può darmi una mano ? Grazie.

Private Sub cmd1_Click()

riga = ActiveCell.Row

destinatario = Cells(riga, 1).Value
oggetto = Cells(riga, 2).Value
testo = Cells(riga, 3).Value


ThisWorkbook.FollowHyperlink _
"mailto:" & destinatario & "?subject=" & oggetto & "&body=" & testo & ""



Pausa = 0.2
OraAttuale = Timer
Do While Timer < OraAttuale + Pausa
Loop


SendKeys "%4"  'questa è la funzione che non viene eseguita !!!!!


End Sub

di patel data: 09/02/2016 08:37:11
non vedo la parte degli allegati, comunque se invii una sola mail non ti servono le righe
Pausa = 0.2 OraAttuale = Timer Do While Timer < OraAttuale + Pausa Loop SendKeys "%4"
di Marco (utente non iscritto) data: 09/02/2016 08:43:49
È proprio il sendkeys che invia Alt4 al windows live mail che fa aprire la finestra per scegliere l'allegato. Quando esegue quest'istruzuone si blocca, come se le impostazioni di protezione di livemail non consentissero a software esterni di aprire la finestra degli allegati!!!!!!
di patel data: 09/02/2016 15:57:38
prova con
SendKeys "{F4}"
di Marco (utente non iscritto) data: 09/02/2016 20:00:20
Il problema è che in un pc funziona perfettamente, in un altro no!
Ritengo che sia una protezione di windows.

Vuoi Approfondire?