[ACCESS]Invio di risultati query ad Outlook

[nikkysixx]

Allora finchè rimango sui 40 la funzione torna,nel momento in cui aumento anche solo di uno mi da errore Run-Time Error 87: an unexpected error

Per fare un debug ho attivato anche la Msgbox che avevi scritto e se le mail sono inferiori a 40 si vedono correttamente,nel caso successivo molte mail non appaiono proprio e la 40esima viene troncata a meta' subito dopo la @

E'come se il recordset non prendesse tutti i record...come è possibile?


Allora ho fatto un po di ricerche e sembra proprio un bug di Access,risolvibile usando il metodo SendObject anzichè Hyperlink...

http://www.access-programmers.co.uk/...d.php?t=114417

I have indeed gotten around this problem by using a SendObject instruction rather than the Hyperlink. The reason I prefer the Hyperlink, however, is because the SendObject demands that the user either send or close the email immediately. The Hyperlink allows the user to ignore the email momentarily, then come back to it later.

Come posso mandare il risultato della query attraverso SendObject?

Sta diventando un parto sta funzione!!!

[nicola75ss]

Option Compare Database
Option Explicit

Private Sub cmdApriPosta_Click()
On Error GoTo Err_cmdApriPosta_Click
       Dim db As DAO.DataBase
       Dim rs As DAO.Recordset
       Dim strMail As String
       Set db = CurrentDb()
       Set rs = db.OpenRecordSet("select email from .......")
            If rs.RecordCount = 0 Then
                MsgBox "nessun record trovato"
                Exit Sub
            End If
       While Not rs.EOF
         strMail = strMail & rs("email") & ";"
         rs.MoveNext
       Wend
       
       Set rs = Nothing

DoCmd.SendObject acSendNoObject, , acFormatXLS, strMail, , , "", , True
Exit_cmdApriPosta_Click:
    Exit Sub
    
Err_cmdApriPosta_Click:
    MsgBox Err.Description
    Resume Exit_cmdApriPosta_Click
End Sub

[nikkysixx]

Grandissimo funziona ^_^ l unico dettaglio insignificante è che outlook deve essere aperto altrimenti da errore....quindi cosi per gioco volevo vedere come far aprire outlook in automatico prima di eseguire la routine da te descritta, ma non so come richiamare tale routine nella sub che manda le email...cmq è solo un dettaglio

Private Sub CmdOpen_Click()
On Error GoTo Err_Error_Click
Dim MyAppID, ReturnValue
Dim MyXL As Object
Set MyXL = GetObject(, "Outlook.Application")
MsgBox "OUTLOOK IS ALREADY RUNNING", vbInformation, "Oops!"
Exit_Error_Click:
Exit Sub
Err_Error_Click:
If Err.Number = 429 Then
MyAppID = Shell("C:\Program Files\Microsoft
Office\Office\OUTLOOK.EXE", 1)
Else
MsgBox Err.Description
End If
Resume Exit_Error_Click
End Sub

[nicola75ss]

Originariamente inviato da nikkysixx
Grandissimo funziona ^_^ l unico dettaglio insignificante è che outlook deve essere aperto altrimenti da errore....quindi cosi per gioco volevo vedere come far aprire outlook in automatico prima di eseguire la routine da te descritta, ma non so come richiamare tale routine nella sub che manda le email...cmq è solo un dettaglio

Ho testato il codice su office xp e outlook viene aperto al momento dell'esecuzione della sub.

[nikkysixx]

Io uso windows 7 e access 2007,non vorrei ci fosse lo zampino dell user access control...o qualcosa del genere,dovro provarlo su XP ! grazie per l informazione,e per tutto il resto ovvio