Newsgroup: it.comp.appl.access
Titolo: Outllook

Ciao a tutti,
ho la necessità questa volta di memorizzare le e-mail che compongo con
access e che invio con outlook.
Ho già scritto in vba routine e tutto funziona,solo che non riesco a salvare
l'e-mail nel momento in cui la invio e non, come invece succede ora con
l'apertura di outlook.
La mia necessità è di avere una copia salvata dell'e-mail che contenga data
e ora dell'invio, cosa che otterrei solo dopo averla inviata. Ho provato ad
usare la proprietà .send, ma ottengo errore.
Mi basterebbe che la finestra di outlook rimanesse aperta dopo l'invio, in
modo di fare un "salva con nome".
Ho cercato sul sito comune senza risultato.
Vi mando la routine.
Grazie
Sub CreaMessaggioMail(strDestinatario As String)
    Dim objMessaggio As Outlook.MailItem
    Dim olkSpazioNomi As Variant
    Dim myitem As Object
    Dim olkApp As Object
    If IsNull([Lettera]) Then
        MsgBox ("Non c'è testo"), vbExclamation
        Me.Lettera.SetFocus
        Exit Sub
    End If
    If IsNull(Forms![tblCheckReclami]![Sottomaschera tblclienti]![E-mail])
Then
        MsgBox ("Non c'è testo"), vbExclamation
    Forms![tblCheckReclami]![Sottomaschera tblclienti]![E-mail].SetFocus
        Exit Sub
    End If
    Set olkApp = New Outlook.Application
    Set olkSpazioNomi = olkApp.GetNamespace("MAPI")
    Set objMessaggio = olkApp.CreateItem(olMailItem)
        With objMessaggio
          .To = strDestinatario
          .Recipients.ResolveAll
          .Subject = "Saluti"
            .Body = [Lettera] & Chr(13) & Chr(13) & "Cordialmente," &
Chr(13) & "Tizio" & Chr(13) & "Servizio" & Chr(13) & "Cus"
            .Display
        End With
        Set myitem = olkApp.ActiveInspector.CurrentItem
        objMessaggio.Display
 myitem.SaveAs "d:\" & [Id] & ".rtf", olTXT
    Set objMessaggio = Nothing
    Set olkSpazioNomi = Nothing
    Set olkApp = Nothing
End Sub

 l'apertura di outlook.
[...]
    Scusa, ma le email inviate non vanno in "posta inviata"? In questo
caso le potrai prelevare, anche in un secondo tempo, da li'. O no?
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--
Ciao :o)
Maurizio
--------
?SPQR(C)
 X
--------

 invia in outlook un'istruzione di salvataggio del e-mail?
    Scusa ma non riesco ad interpretare cosa intendi con questa frase.


 ha scritto nel messaggio
news:b3ns40$1nlmmi$1...@ID-52090.news.dfncis.de...

E' il pilotare da codice che per me è un problema, mi potresti dare una mano
!!
Grazie
P.S. volevo dire che dopo aver schiacciato "invia" la lettera viene
memorizzata in una direttori di mia scelta..

 memorizzata in una direttori di mia scelta..
    Ok. Ma cosa memorizzi, il testo "da inviare" che hai inviato oppure
copia di cio' che hai effettivamente inviato, ovvero il documento di
posta inviata di outlook?
    Sperimenta questo codice:
' ============================================================
  Public Sub Prova()
' ------------------------------------------------------------
  Dim oOlApp        As Outlook.Application
  Dim oOlNameSpace  As Outlook.NameSpace
  Dim oOlMAPIFolder As Outlook.MAPIFolder
  Dim oOlMailItem   As Outlook.MailItem
' ------------------------------------------------------------
  Set oOlApp = Outlook.Application
  Set oOlNameSpace = oOlApp.GetNamespace("MAPI")
  Set oOlMAPIFolder = oOlNameSpace.PickFolder
  If Not (oOlMAPIFolder Is Nothing) Then
    With oOlMAPIFolder
      Debug.Print .Name; ". Items: " & .Items.Count
      For Each oOlMailItem In .Items
        With oOlMailItem
          Debug.Print .SentOn; ": "; .Subject
        End With
      Next
    End With
    Debug.Print
  End If
  On Error Resume Next
  Set oOlMailItem = Nothing
  Set oOlMAPIFolder = Nothing
  Set oOlNameSpace = Nothing
  Set oOlApp = Nothing
  End Sub
' ============================================================
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
--


Ok, adesso provo ad immettere codice in access...quello che vorrei
memorizzare è comunque il testo effettivamente inviato.

ciao di nuovo,
non ho capito una cosa del codice che mi hai mandato, ossia l'inserimento di
debug.print...
Nel senso quale è il metodo specifico per salvare le e-mail inviate (ad ex
in d:\)?
Scusa per la mia poca dimestichezza con il codice, ma è da poco che mi son
messo....
Grazie