Newsgroup: it.comp.appl.access
Titolo: Access+Lotus Notes

ciao a tutti:
ho un problema che spero qualcuno mi aiuti a risolvere:
da un db di access(97) devo poter prendere una tabella (o report) in
formato rtf, allegarla una mail e farla spedire in automatico
...ma non con outlook, con lotus notes.
L'ho fatto con una macro che perň non va (il programma predefinito non
va bene...scegli outlook! suona piů o meno il messaggio)
C'č modo di farlo funzionare?
Grazie mille
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

ciao a tutti: ho un problema che spero qualcuno mi aiuti a risolvere: da
un db di access(97) devo poter prendere una tabella (o report) in
formato rtf, allegarla una mail e farla spedire in automatico ...ma non
con outlook, con lotus notes. L'ho fatto con una macro che perň non va
(il programma predefinito non va bene...scegli outlook! suona piů o meno
il messaggio) C'č modo di farlo funzionare? Grazie mille  Che SO usi? Io
ho avuto lo stesso problema in Nt4, usando SendObject: ho dovuto
cambiare il MailToProtocoll da Outlook a Notes. COsě la SendObject
funziona, se non devo aprire Notes in fase di invio della mail.  Poi,
poichč avevo dei problemi di attachment, grazie anche a questo NG, ho
trovato (e adattato alla mia maniera) questo codice:	      Dim
stDocName As String	Dim Indirizzo, OggettoMail, TestoMail, Notizie
As String     Indirizzo = [CasellaPosta]     OggettoMail = "Ricevuta
..."	 TestoMail = "Le inviamo ... Distinti saluti."	   stDocName =
"RConsegna"	     If IsNull([CasellaPosta]) Then	   
DoCmd.OpenReport stDocName, acViewNormal     Else	  If
MsgBox("Vuoi inviare il report per e-mail?", vbYesNo, "Attenzione ...")
= vbYes Then		 DoCmd.RunMacro "MReport" 'crea l'oggetto .txt	
	  Dim allegati As String	     allegati = "pippo.txt"	
       Dim notesdb As Object		 Dim notesdoc As Object 	
   Dim notesrtf As Object	      Dim notessession As Object	
    Set notessession = CreateObject("Notes.Notessession")	     
Set notesdb = notessession.getdatabase("", "")		   Call
notesdb.openmail	     Rem make new mail message		   Set
notesdoc = notesdb.createdocument	      Call
notesdoc.replaceitemvalue("Sendto", [Indirizzo])	     Call
notesdoc.replaceitemvalue("Subject", [OggettoMail])		Set
notesrtf = notesdoc.createrichtextitem("body")		   Call
notesrtf.appendtext([TestoMail])	     Call notesrtf.addnewline(2)
	    Rem attach Error Report doc 	    's =
ActiveDocument.Path + "\" + ActiveDocument.Name 	    Call
notesrtf.embedObject(1454, "", allegati, "Mail.rtf")		 Call
notesdoc.Send(False)		 Set notessession = Nothing		
		     Else		DoCmd.OpenReport stDocName,
acViewNormal	     End If	End If	Gli utenti dicono che funziona
... L'unica cosa č che non riesco a tenere traccia (nei Sent di Notes)
delle mail che invio da Access. Auguri

ciao a tutti: ho un problema che spero qualcuno mi aiuti a risolvere: da
un db di access(97) devo poter prendere una tabella (o report) in
formato rtf, allegarla una mail e farla spedire in automatico ...ma non
con outlook, con lotus notes. L'ho fatto con una macro che perň non va
(il programma predefinito non va bene...scegli outlook! suona piů o meno


 wrote in message
news:a8bp2g$989$1...@gossip.excite.it...

Il db access e notes li ho su w95 e 98SE:
ecco il modulo che uso(se in google digiti mail access dovresti trovare
qlc sito
che tratta l'argomento e propone qlc soluzione. purtroppo non ricordo
l'url...):
Public Sub SendNotesMail(Subject As String, Attachment As String,
Recipient As String, BodyText As String, SaveIt As Boolean)
'Set up the objects required for Automation into lotus notes
    Dim Maildb As Object 'The mail database
    Dim UserName As String 'The current users notes name
    Dim MailDbName As String 'THe current users notes mail database name
    Dim MailDoc As Object 'The mail document itself
    Dim AttachME As Object 'The attachment richtextfile object
    Dim Session As Object 'The notes session
    Dim EmbedObj As Object 'The embedded object (Attachment)
    'Start a session to notes
    Set Session = CreateObject("Notes.NotesSession")
    'Get the sessions username and then calculate the mail file name
    'You may or may not need this as for MailDBname with some systems
you
    'can pass an empty string
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) -
InStr(1, UserName, " "))) & ".nsf"
    'Open the mail database in notes
    Set Maildb = Session.GETDATABASE("", MailDbName)
     If Maildb.ISOPEN = True Then
          'Already open for mail
     Else
         Maildb.OPENMAIL
     End If
    'Set up the new mail document
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'Set up the embedded object and attachment and attach it
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment,
"Attachment")
    End If
    'Send the document
    MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent
items folder
    MailDoc.SEND 0, Recipient
    'Clean Up
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub
e ne tiene traccia anche negli inviati di notes.
Grazie mille e ciao


 ciao a tutti: ho un problema che spero qualcuno mi aiuti a risolvere: da

Il db access e notes li ho su w95 e 98SE:



