Newsgroup: it.comp.appl.access
Titolo: docmd.sendobject non va con outlook

se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?
 
grazie a tutti.

 
 
Da tempo immemorabile ho cercato sistema per inviare posta usando client 
predefinito Windows
Poi ho smesso perche' ho trovato fosse una ricerca senza speranza, ogni 
client ha le sue particolarita' e la creazione del codice come me lo 
pensavo lentamente ti faceva scivolare verso il manicomio
Alla fine ho adottato Blat, che e' uno 'speditore' di posta comandabile 
da riga comando, un file di testo
E' possibile anche fargli produrre un log degli eventi cosi' puoi 
controllare cosa e' avvenuto durante il tentativo di invio
 
 

 se uno thunderbird o windows live mail ma anche altri client mi crea la mail e la invia se è predefinito microsoft outlook invece no, qualcuno ha un esempio funzionante di email con allegato da access inviato con outlook?
 
Mancano le tue versioni di Access e Windows. Forse si tratta di questo 
bug nuovo:
 
https://support.office.com/en-us/article/access-is-unable-to-export-objects-as-email-attachments-on-windows-7-ce6f5de8-e1bb-4ac4-9607-cc1e79dc9cc3
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 
 

 grazie a tutti.
 
sono riuscito a inviare email con allegati da microsoft outlook, codice testato e funzionante
 
'invia mail con allegato da microsoft outlook
'va selezionato nei riferimenti vba "Microsoft Outlook XX.0 object Library"
Public Sub InviaMail(allegato As String)
    Dim OutlookApp As Outlook.Application
    Dim MItem As Object
 
    On Error Resume Next
 
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    With MItem
        .to = "
emaildes...@dominio.it
"
        '.CC = "
ema...@dominio.it
" 'Copia Conoscenza
        '.BCC = "
emai...@dominio.it
" 'Copia Nascosta
 
        .Subject = "Invio allegato " & allegato ' oggetto della mail
        .Body = "messaggio della mail" ' messaggio della mail
        .Attachments.Add allegato 'file allegato
        '.SentOnBehalfOfName = "
tua...@dominio.it
" 'Mittente in caso si voglia modificare tra quelli disponibili in outlook
        '.display 'per decidere se vedere la mail oppure la invia in modo trasparente
        .Send 'invia la mail
    End With
 
    Set OutlookApp = Nothing
 
End Sub

Non serve inserire i riferimenti a MSO... anzi meglio evitare... soprattutto se il tuo prodotto va distribuito.
Latebinding o associazione tardiva... prova a vedere se ti va anche esempio.
 
@Alex


Pensavo fosse obbligatorio, ora provo anche senza riferimenti


senza i riferimenti non funziona, mi da l'errore seguente:
 
errore di compilazione 
tipo definito dall'utente non definito
 
alla riga-->     Dim OutlookApp As Outlook.Application
 
 
esiste una soluzione per evitare i riferimenti e farlo funzionare?
 
grazie.

"Caro il mio Marito Rossi...."
Scusa ma hai letto quello che ti ho scritto...?
Se vuoi non inserire i riferimenti non basta toglierli devi adeguare il tuo codice con le modalità dell'associazione Tardiva...!!! LATEBINDING.
 
Ti basta digitare quella parola su Google per trovare il mondo...
 
@Alex
 


ok ora ho capito cosa devo cercare, grazie.