Questo sito utilizza cookie, anche di terze parti, per migliorare la tua esperienza e offrire servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina o cliccando qualunque suo elemento acconsenti all’uso dei cookie

Rimani informato sugli aggiornamenti di SOS-OFFICE. Inserisci il tuo indirizzo e-mail: Informativa sulla privacy

Benvenuto, Ospite
Nome utente: Password: Ricordami

ARGOMENTO: salvare dati di email ricevute su foglio excel

salvare dati di email ricevute su foglio excel 1 Anno 7 Mesi fa #477

  • Cavanna
  • Avatar di Cavanna
  • Offline
  • Junior Boarder
  • Messaggi: 29
buongiorno
volevo sapere se era possibile attraverso un codice, salvare in automatico in un foglio excel i dati di email ricevute da un utente specificato. per la precisione "oggetto" , e "Data di ricezione mail".
ho trovato qualcosa smanettando un pò ma e' di difficile comprensione per me che sono neoneoneoneofita.
comunque posto il codice che piu' o meno funziona ( nel senso che salva i dati di tutte le mail che arrivano, ma con alcuni contatti completa il ciclo, con altri mi va in debug.
grazie

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim MioFile As String
Dim varEntryIDs
Dim objItem As Object
Dim i As Integer
' modificare il percorso e il nome file
MioFile = "C:\Users\2914043\Desktop\Mail\MailRic.xlsx"
varEntryIDs = Split(EntryIDCollection, ",")
Dim oXLApp As Object, oXLwb As Object, oXLws As Object
Dim lRow As Long
'~~> Establish an EXCEL application object
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")

'~~> If not found then create new instance
If Err.Number <> 0 Then
Set oXLApp = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0
'~~> Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open(MioFile)
Set oXLws = oXLwb.Sheets("MailRic")
lRow = oXLws.Range("A" & oXLApp.Rows.Count).End(-4162).Row + 1
'oXLws.Range("A1").Select
' lRow = oXLws.Range(Selection, Selection.End(xlDown)).Select + 1
oXLApp.Visible = True
For i = 0 To UBound(varEntryIDs)
Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
With oXLws
.Range("A" & lRow).Value = objItem.Subject 'in colonna A mette l'oggetto
.Range("B" & lRow).Value = objItem.SenderName 'in colonna B mette che ha inviato
'.Range("C" & lRow).Value = objItem.CC 'in colonna C mette i destinatari in CC
'.Range("C" & lRow).Value = objItem.To 'in colonna C mette i destinatari in TO
'.Range("E" & lRow).Value = objItem.Body ' in colonna E mette il testo
.Range("F" & lRow).Value = objItem.ReceivedTime ' in colonna F mette data e ora di ricezione
'.Range("C" & lRow).Value = objItem.BodyFormat
'.Range("E" & lRow).Value = objItem.HTMLBody
'.Range("F" & lRow).Value = objItem.RTFBody
End With
Next
oXLwb.Save
oXLwb.Close
End Sub
Ultima modifica: 1 Anno 7 Mesi fa da Cavanna.
L\'Amministratore ha disattivato l\'accesso in scrittura al pubblico.
Tempo creazione pagina: 0.116 secondi
Powered by Forum Kunena
Joomla templates by a4joomla