Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Rispondere a delle mail tramite VBA di Excell

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

Rispondere a delle mail tramite VBA di Excell

Postdi fulviot » 09/06/16 16:41

Ciao a todos,

scrivo a voi perché già in passato mi avete aiutato e adesso ho un nuovo problema.

Io vorrei fare un tool VBA in excell che mandi una risposta a delle mail prese da outlook.

su internet ho trovato una funzione che mi permette di risponde solamente alle mail che sono selezionate in outlook.

quello che invece vorrei fare io è:
- lancio la funzione di excell
- questa si posiziona su outlook
- si posiziona in una determinata cartella di posta Es. Inbox\pippo\pluto
- per tutte le mail presenti in questa cartella mandare una risposta.
- eventuali condizioni di filtraggio delle mail per il momento non sono importanti

avete qualche suggerimento in merito?

Vi anticipo che le soluzioni proposte su MSDN non mi funzionano.

Grazie 1000
fulviot
Utente Junior
 
Post: 15
Iscritto il: 12/04/16 09:21

Sponsor
 

Re: Rispondere a delle mail tramite VBA di Excell

Postdi fulviot » 10/06/16 11:47

Ciao, ho trovato la soluzione da solo, ve la posto nel caso vi serva.

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 :D
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
fulviot
Utente Junior
 
Post: 15
Iscritto il: 12/04/16 09:21


Torna a Applicazioni Office Windows


Topic correlati a "Rispondere a delle mail tramite VBA di Excell":


Chi c’è in linea

Visitano il forum: Nessuno e 24 ospiti