Newsgroup: it.comp.appl.access
Titolo: stamap unione con outlook 2007 - rispost

questo è il mio primo post su questo group ho dato un po di occhiate
in giro e spero di non fare domande inutili e doppie...in ogni caso
chiedo scusa in anticipo. Sono un utente "medio" ed autodidatta di
Access 2007.. sono abbastanza in grado (tra codici facili e
autocomposizioni) di creare db anche un po complicati, ma come tutti
gli autodidatti i limiti si fanno sentire non avendo background. Il
mio (i miei) problemi sono attualmente: ho creato un db dal quale
attraverso delle query. una delle quali è relativa a clienti ai quali
spedire delle mail. la mia idea sarebbe quella di automatizzare
l'invio attraverso outlook i campi da inserire sono titolo-nome-
cognome-emailazienda-emailreferente.mi piacerebbe che il testo
dell'email fosse personalizzata con titolo, nome cognome e ovviamente
gli indirizzi email inseriti automaticamente. Ho provato delle
soluzioni trovate in rete, ma poco soddisfacenti e sopratutto non
automatizzate. Sarebbe interessante che tutta la cosa partisse da un
pulsante che richiamasse l'eventuale routine. per ora direi che mi
fermo e aspetto i vostri aiuti che anticipatamente ringrazio. Un
saluto a teo l'amico che mi ha consigliato questo group.
Ado

 ha scritto nel messaggio 
news:acd0bf97-f4af-4ae3...@fj16g2000vbb.googlegroups.com...

    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("anagrafica")
    rst.movefirst
    do until rst.eof
        ' prendi i dati che ti servono l'email nome cognome ecc ecc
         DoCmd.SendObject , , acFormatTXT, , , email, Subject, Messaggio , 
false
        rst.movenext
    loop
    Set rst = Nothing
ho rielaborato al volo una mia procedura in cui invece ho una listbox e 
mando stessa mail a tutti quelli selezionati
non l'ho testata ma il concetto è quello
Antonio 

 spedire delle mail. la mia idea sarebbe quella di automatizzare
[...]
Rinnovo la domanda: quali versioni Access / Outlook stai usando?
Bruno

 ha scritto nel messaggio 
news:4cf0ed39$0$6549$4faf...@reader4.news.tin.it...

Ehm...
nel titolo parla di outlook 2007 e nel testo parla di access 2007
forse ci possiamo sbilanciare...
:-P
Antonio 

 ha scritto nel messaggio 
news:YJ6Io.1010$3b....@twister2.libero.it...

Ma è per sicurezza!!!! :D 

 forse ci possiamo sbilanciare...
Proviamoci:
==================================
Private Sub SendingMailFromTable_Click()
' References: (sono quelle per Access 2010,  vanno cambiate!)
' Visual Basic for Applications
' Microsoft Outlook 14.0 Object Library
' Microsoft Office 14.0 Object Library
' Microsoft Office 14.0 Access database engine Object Library
' Microsoft Scripting Runtime
'
Dim NewMail As MailItem, S As String, i As Integer
Dim AttachmentArray(1 To 3) As String
Dim FSO As Object, TextStream As Object
Dim db As Database, RS As Recordset
Set db = CurrentDb
Set RS = db.OpenRecordset("t_Contacts", dbOpenDynaset)
' Table t_Contacts has 3 Fields:
' CompanyName, Attn, EmailAddress. All the Fields are Text(255).
' Some Attachments
AttachmentArray(1) = "C:\aa2.txt"
AttachmentArray(2) = "C:\aa3.txt"
AttachmentArray(3) = "C:\aa4.txt"
' C:\aa1.txt is your newsletter
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.OpenTextFile("C:\aa1.txt")
Do Until TextStream.AtEndOfStream
    S = TextStream.ReadLine
Loop
Do Until RS.EOF
    Set NewMail = 
CreateObject("Outlook.Application").CreateItem(olMailItem)
    With NewMail
        .To = RS![eMailAddress] ' "aaaaa@aaa; bbbbb@bbb; ccccc@ccc"
        '.CC = "ddddd@ddd; eeeee@eee"
        '.BCC = "fffff@fff; ggggg@ggg"
        .Subject = "My Special Subject"
        .Body = RS![CompanyName] & vbCrLf & "Attn " & RS![Attn] & 
vbCrLf & S
        For i = 1 To 3
            .Attachments.Add AttachmentArray(i)
        Next
        .Send
    End With
    Set NewMail = Nothing
    RS.MoveNext
Loop
End Sub
======================================
Bruno

 >>> attraverso delle query. una delle quali relativa a clienti ai quali

grazie per i suggerimenti in effetti mi sembravam, ma forse era solo
una supposizione, che uso la suite 2007... proverò prima a capirci
qualcosa e poi a fare dei test... vi farò sapere. per il
momento ......grazie