Newsgroup: it.comp.appl.access
Titolo: Inviare email da Access

Carissimi,
devo mandare delle email in Outlook express da Access e ho trovato il 
seguente programmino che funziona proprio bene. Solamente vorrei che 
l'indirizzo del mittente finisse in Ccn: invece che in A: in quanto alla 
fine avrò un messaggio da inviare a tante persone che non voglio vedano i 
rispettivi indirizzi. Si può fare?
Grazie,
Simona
Private Sub Comando0_Click()
'Su click di un pulsante chiamato Comando0 dove la prorietà Caption del 
controllo è l'indirizzo di posta:
Dim strInput As String
On Error GoTo Error_GetUserAddress
strInput = "mailto:" + Me!Comando0.Caption
Application.FollowHyperlink strInput, , True
GetUserAddress = True
Exit_GetUserAddress:
Exit Sub
Error_GetUserAddress:
MsgBox Err & ": " & Err.Description
GetUserAddress = False
Resume Exit_GetUserAddress
End Sub


Prova in questo modo:
strInput = "mailto:?bcc=" + Me!Comando1.Caption
-- 
Ciao
Geppo 

 Geppo
Grazie, funziona benissimo.
E se insieme voglio anche mettere l'oggetto o il corpo del messaggio?
Simona

 Simona
-- 
Ciao
Geppo

 seguente programmino che funziona proprio bene.
E per mandare email tramite Windows Mail di Vista... sapete come fare?


Mi hai letto nel pensiero.......grazie infinite, funziona che è una 
bellezza!
Simona


Prima di postare hai fatto delle prove con lo stesso sistema?
Bisogna sempre provare......
-- 
Ciao
Geppo 

 ha scritto nel messaggio 
news:2865ed74-c2bc-45f6...@l6g2000prm.googlegroups.com...

Non so, penso sia uguale. Di seguito il programma completo con tutti i 
parametri, da aggiustare all'occorrenza.  La cosa ESSENZIALE è che solo il 
primo parametro deve esere preceduto da ?, gli altri invece da &, altrimenti 
non funziona. Per chiarimenti leggi qui:
http://msdn2.microsoft.com/en-us/library/aa767737.aspx
Option Compare Database
Private Sub Comando0_Click()
Dim strInput As String
Dim Oggetto As String
Dim Messaggio As String
On Error GoTo Error_GetUserAddress
Oggetto = "oggetto di prova"
Messaggio = "messaggio di prova"
'Inizio costruzione della stringa di invio
strInput = "mailto:
emailacu...@tin.it
" + "?cc=" + _
"
emailcop...@tin.it
" + "&bcc=" + "
emailn...@tin.it
" _
+ "&subject=" + Oggetto + "&body=" + Messaggio
' Fine costruzione della stringa di invio


 Prima di postare hai fatto delle prove con lo stesso sistema?
Si ho provato.
Con Win XP e Outlook Expresss funziona a meraviglia
Con Vista, NO


E' come se non lo vedesse... compare il messaggio "il server diposta
elettronica predefinito potrebbe non essere installato correttamente"

 ha scritto nel messaggio 
news:38122518-75ca-4e64...@d21g2000prf.googlegroups.com...

Ciao Mirco,
Con WinVista ultimate e WindowsMail a me funziona perfettamente.
prova a fare Start-->Esegui e inserisci questa stringa
----
mailto:?to=
topo...@topolino.it
&cc=
pi...@pippo.it
&bcc=
pl...@pluto.it
&subject=oggetto&body=messaggio
----
cosa succede ?
Ciao
--
Giorgio Rancati
[Office Access MVP] 

 ha scritto nel messaggio 
news:4a6512c4-73bc-41f6...@i3g2000hsf.googlegroups.com...

Prova a fare cosě:
Premi Start-->Esegui-->Pannello di Controllo-->Opzioni Internet , poi scheda 
Programmi, poi premi Imposta Programmi, poi premi Imposta Programmi 
Predefiniti, dalla lista seleziona "Windows Mail" e poi premi "Imposta 
questo programma com predefinito"


 questo programma com predefinito"
Già fatto...
... ma in ogni caso penso che dipenda da qualche problema nel mio pc,
visto che ricevo lo stesso messaggio anche quado provo cliccare su un
qualsiasi indirizzo di posta elettronica.
In ogni caso, grazie per l'aiuto

 ... ma in ogni caso penso che dipenda da qualche problema nel mio pc,
Confermo... dipendeva da un problema del mio pc.
La routine funziona anche con Vista