Inviare mail da access utilizzando account non predefinito

[Ricky]

Premetto che utilizzo access 2003 con con outlook 2007.
Avrei necessità di inviare mail attraverso l'account non predefinito.
Utilizzo il codice seguente:

Private Sub Comando0_Click()

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

Dim Destinatario As String
Dim Copia_Conoscenza As String
Dim Oggetto As String
Dim Corpo As String
Dim Account As String

On Error Resume Next

Set oOutlookApp = GetObject(, "Outlook.Application")

If Err = 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

'Crea un nuovo oggetto email

Destinatario = "pi...@pippo.it"
Copia_Conoscenza = "pl...@pluto.it"
Oggetto = "PROVA"
Corpo = "PROVA PROVA PROVA PROVA PROVA PROVA"
Allegato = "C:\Cartel1.xls"
Account = "Pippo"

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
'Imposta il destinatario
.To = Destinatario
'Imposta il destinatario in copia
'.CC = Copia_Conoscenza
'Definisce l'oggetto della email
.Subject = Oggetto
'Definisce il contenuto della email
.Body = Corpo
'Definisce l'allegato della email
.Attachments.Add Allegato
'Scelta account
.SendUsingAccount = Account
'invia effettivamente l'email
.Send
End With

If bStarted = False Then
'Chiude Outlook se è stato aperto via codice
oOutlookApp.Quit
End If

'Pulizia
Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub

Parte la mail con allegato, l'unico problema è che parte sempre con
l'account predefinito.

Ho provato anche a sostituire

Account=oOutlookApp.Session.Accounts.Item(2)

Ma il risultato non cambia...

Come posso fare???

Ciao e grazie
Ricky

[Popi - TheBadHabits]

Ciao!

Dai un'occhiata in http://groups.google.com/group/microsoft.public.outlook.program_vba

HTH
Popi

[RobertoA]

Parte la mail con allegato, l'unico problema è che parte sempre con
l'account predefinito.

Ho provato anche a sostituire

Account=oOutlookApp.Session.Accounts.Item(2)

Ma il risultato non cambia...

Come posso fare???

Ciao e grazie
Ricky
--------------------------

Per l'invio posta io ti consiglio di slegarti da qualsiasi client di posta
Usa Blat e vai tranquillo, gli crei un file di testo da dargli in pasto e lo
avvi usando lo shell
Puo' farti anche un file di log nel caso tornassero degli errori
Piccolo, free, veloce, efficace
Non c'e' di meglio per l'invio posta
Ciao
RobertoA