Ciao a tutti,

formulo questo quesito su questo post he ha come argomento invio e-mail da vba.
Il processo è il seguente: arriva un’e-mail in Outlook e la macro vba consente di fare “inoltra a tutti”.
Poi sto cercando di selezionare un testo da inserire nell’e-mail ma questo dovrei essere in grado infatti sto facendo alcune prove con il codice “crea e invia e-mail da vba”, questa parte del processo infatti non non credo dovrebbe cambiare se si tratta di crea e invia o rispondi/inoltra.

Ho cercato in una miriade di forum e ho trovato il seguente Sub che vi inoltro. Mi sembra interessante in quanto parte da un folder di appoggio e poi seleziona testo di risposta e l’oggetto del replay in excel.

Ho visto anche le caratteristiche del computer:
Microsoft Office 2010
Microsoft Outlook 2010
Windows 7
System type: 64 bit

Se ho capito bene, il processo che vi riporto fa rispondi e-mail da un folder in Outlook dove sono inserite le e-mail in modo da verificare le e-mail di interesse (con una regola Outlook le potrei spostare) però il processo mi si blocca alla riga in cui setta myFolder:

Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) ‘qui indico quale sia il folder di partenza

In D4 ho capito che bisogna mettere qualcosa tipo il path Oulook, ci ho provato ma si blocca. Ho inserito la libreria nel progetto macro ma non va comunque.

Se ho capito bene dalla cella D4 del Foglio1 il processo “legge” il percorso dove prendere l’e-mail di Outlook alla quale fare reply. Quindi dopo aver inserito sotto Inbox di Outlook il percorso Pippo\Pluto ho provato come segue scrivendo in D4 in alternativa:

Inbox\Pippo\Pluto

Tutto il percorso outlook rilevato dal file posta:
C:\Appdata\Local\Microsoft\Outlook\miaemail.it.ost\Inbox\Pippo\Pluto

C:\Appdata\Local\Microsoft\Outlook\miaemail.it\Inbox\Pippo\Pluto
Cioè senza il .ost

Però da sempre il messaggio di errore “necessario oggetto”.

Il processo è compreso tra gli asterischi:

Perchè si blocca? Grazie.
Enrico

**********
Sub olReply()

‘Dichiarazione Variabili generiche
Dim Folder_Select As String
Dim Oggetto_Select As String
Dim risposta_Select As String

‘popolo le variabili sopra
Folder_Select = Foglio1.Cells(4, 4).Value
Oggetto_Select = Foglio1.Cells(5, 4).Value
risposta_Select = Foglio1.Cells(6, 4).Value

‘Dichiaro le variabili per la gestione della mail
‘per accettarle ho dovuto aggiungere in strumenti\riferimenti la voce “Microsoft outllok XX.X object library”

Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem
Dim oReply As Outlook.MailItem
Dim myFolder As Outlook.Folder

‘setto le variabili per recuperare i dati
Set objOL = CreateObject(“Outlook.Application”)
Set myNameSpace = Outlook.GetNamespace(“MAPI”) ‘ questo non so a cosa serva, lo ho trovato su internet 😀
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) ‘qui indico quale sia il folder di partenza
Set myFolder = myFolder.Folders(Folder_Select) ‘ qui indico in quale folder trovare le mail

‘inizio a rispondere alle e-mail
For Each objMsg In myFolder.Items
If objMsg.UnRead = True Then
If objMsg.Subject = Oggetto_Select Then
Set oReply = objMsg.Reply
oReply.HTMLBody = risposta_Select & objMsg.HTMLBody
oReply.Display
End If
End If
Next

‘Distruggo le variabili
Set objMsg = Nothing
Set objOL = Nothing
Set oReply = Nothing
Set myFolder = Nothing
End Sub
**********