Copiare testo e-mail Outlook in Excel con VBA

[Simone]

Ciao,
sto cercando di capire se con una routine è possibile copiare il
testo
di una mail (ricevuta da uno specifico contatto) in Excel.
Qualcuno ha già lavorato su qualcosa di simile?
Grazie mille

Simone

[Bruno Campanini]

"Simone" <smar...@tiscali.it> wrote in message
news:5d354125-7f72-4473...@r10g2000vbc.googlegroups.com...

> Ciao,
> sto cercando di capire se con una routine è possibile copiare il
> testo
> di una mail (ricevuta da uno specifico contatto) in Excel.
> Qualcuno ha già lavorato su qualcosa di simile?

Mi sembrava di averti già chiesto delucidazioni, forse nello
stesso thread in altro NG?

1 - Esportare da Outlook, quale versione?
in Excel, quale versione?
2 - come vuoi identificare la Mail da esportare?
Definendone data e ora, selezionandola?

Bruno

[Simone]

On 12 Set, 02:26, "Bruno Campanini" <B...@gmail.com> wrote:
> "Simone" <smarz...@tiscali.it> wrote in message

>
> news:5d354125-7f72-4473...@r10g2000vbc.googlegroups.com...
>
> > Ciao,
> > sto cercando di capire seconuna routine è possibilecopiareil
> >testo
> > di una mail (ricevuta da uno specifico contatto) inExcel.
> > Qualcuno ha già lavorato su qualcosa di simile?
>
> Mi sembrava di averti già chiesto delucidazioni, forse nello
> stesso thread in altro NG?
>
> 1 - Esportare daOutlook, quale versione?

>      inExcel, quale versione?

> 2 - come vuoi identificare la Mail da esportare?
>       Definendone data e ora, selezionandola?
>
> Bruno

Ciao, scusate se rispondo solo ora a questa vecchia domanda. Nello
specifico, le versioni di Outlook e Excel sono 2007. La mail da
espoirtare è identificata dal mettente, viene ricevuta tutti i i
giorni da un mittente univoco che invia solo una mail al giorno. La
mia necessità è incollare il testo su un foglio Excel, poi posso
gestire io quale parte della stringa estrarre. Spero di aver chiarito
la mia richiesta.
Grazie ancora

Simone

[Bruno Campanini]

Simone pretended :

> On 12 Set, 02:26, "Bruno Campanini" <B...@gmail.com> wrote:

> Ciao, scusate se rispondo solo ora a questa vecchia domanda. Nello
> specifico, le versioni di Outlook e Excel sono 2007. La mail da

> espoirtare ￜ identificata dal mettente, viene ricevuta tutti i i

> giorni da un mittente univoco che invia solo una mail al giorno. La

> mia necessitￜ ￜ incollare il testo su un foglio Excel, poi posso

> gestire io quale parte della stringa estrarre. Spero di aver chiarito
> la mia richiesta.

===================================================
Public Sub OneMailReceived_ImportFromOutlook()
'
' Da Outlook importa in Excel una singola eMail identificata
' attraverso la data di ricevimento (ReceivedTime Property)
' se uguale alla data corrente (Date)
' e l'indirizzo eMail del mittente (SenderEmailAddress Property).
'
' Il codice in un modulo di Excel, Outlook DEVE ESSERE APERTO!
'
Dim MyInbox As Outlook.Folder, i As Outlook.mailItem
Dim xlRange As Excel.Range

Set xlRange = [Sheet1!A10]
Set MyInbox = Session.GetDefaultFolder(olFolderInbox)

For Each i In MyInbox.Items
If i.SenderEmailAddress = "brun...@libero.it" And _
Format(i.ReceivedTime, "dd-mm-yy") = _
Format(Date, "dd-mm-yy") Then
xlRange = i.Body
Exit For
End If
Next

End Sub
===========================================================

Bruno

[Simone]

On 15 Ott, 16:38, Bruno Campanini <brunoca...@libero.it> wrote:
> Simone pretended :
>
> > On 12 Set, 02:26, "Bruno Campanini" <B...@gmail.com> wrote:
> > Ciao, scusate se rispondo solo ora a questa vecchia domanda. Nello
> > specifico, le versioni di Outlook e Excel sono 2007. La mail da

> > espoirtare è identificata dal mettente, viene ricevuta tutti i i

> > giorni da un mittente univoco che invia solo una mail al giorno. La

> > mia necessità è incollare il testo su un foglio Excel, poi posso

> > gestire io quale parte della stringa estrarre. Spero di aver chiarito
> > la mia richiesta.
>
> ===================================================
> Public Sub OneMailReceived_ImportFromOutlook()
> '
> ' Da Outlook importa in Excel una singola eMail identificata
> ' attraverso la data di ricevimento (ReceivedTime Property)
> ' se uguale alla data corrente (Date)
> ' e l'indirizzo eMail del mittente (SenderEmailAddress Property).
> '
> ' Il codice in un modulo di Excel, Outlook DEVE ESSERE APERTO!
> '
> Dim MyInbox As Outlook.Folder, i As Outlook.mailItem
> Dim xlRange As Excel.Range
>
> Set xlRange = [Sheet1!A10]
> Set MyInbox = Session.GetDefaultFolder(olFolderInbox)
>
> For Each i In MyInbox.Items

>     If i.SenderEmailAddress = "bruno...@libero.it" And _

>        Format(i.ReceivedTime, "dd-mm-yy") = _
>        Format(Date, "dd-mm-yy") Then
>        xlRange = i.Body
>        Exit For
>     End If
> Next
>
> End Sub
> ===========================================================
>
> Bruno

Grazie Bruno

[ess...@gmail.com]

Ciao Bruno, visto che sei stato così gentile, ti disturbo per una problematica molto simile.
Devo estrarre alcune parti di un email da Outlook 2010 a Excel 2010.
In Outlook ho una determinata cartella, "Problem", dove vanno a finire grazie ad una regola, tutte le email che mi invia un utente.
L'email ha sempre la stessa formattazione/template, Es.:

Città: xxx
Indirizzo: xxxx
Provincia: xxxx
Telefono: xxxx
Ecc..

Vorrei che aprendo l'excel, tramite una macro "cattura", venissero importati i valori dei campi indicati di tutte le email presenti nella cartella "Problem" di Outlook, con un risultato simile al seguente:

CITTA' INDIRIZZO PROVINCIA TELEFONO
Roma via A RM 1
Milano via B MI 2
Torino via C TO 3

Grazie anticipatamente per la tua disponibilità.