Accès - Comment retourner le résultat d'un sendmail?

Question

Merci d'avance pour toute aide.J'ai le code suivant qui, lorsque cliqué sur Crée un e-mail, insère l'adresse électronique du corps et du client et attache une copie de la facture.J'ai deux questions, il est possible de modifier le nom du fichier ci-joint, pour le moment, il ne s'agit que de FIVoicef.pdf pourrait faire en être la référence de la livraison.Et deuxièmement, est-il possible d'attraper le résultat de l'envoi de courrier?Je sais que si l'e-mail n'est pas envoyé, il suffit de fermer, l'accès met une boîte d'information indiquant "L'action de l'objet d'envoi a été annulée", je souhaite attraper la confirmation "envoyée avec succès" et ajouter la date d'aujourd'hui à une boîte [Invoicepé].Merci à toute personne avant leur aide :)

Private Sub emailinvoiceF_Click()
On Error GoTo Err_emailinvoiceF_Click

If MsgBox("Email the invoice?", vbYesNo) = vbYes Then

Dim strMessage
strMessage = "Dear " & First & " " & Last & "," _
& vbCrLf & vbCrLf & "Thank you for your order: (" & DeliveryID & "), please find attached invoice." _
& vbCrLf & vbCrLf & "If you require any further information please do not hesitate to contact us." _
& vbCrLf & vbCrLf & "Kind Regards," _
& vbCrLf & vbCrLf & "SMI Hardwoods" _
& vbCrLf & vbCrLf & "Tel: 01206 396725" _
& vbCrLf & vbCrLf & "www.smi-hardwoods.com" _


    Dim stDocName As String

    stDocName = "InvoiceF"
    DoCmd.SendObject acReport, stDocName, acFormatPDF, [E-mail address], , , "SMI Hardwoods Invoice Ref:" & DeliveryID & ".pdf", strMessage
End If

Exit_emailinvoiceF_Click:
    Exit Sub

Err_emailinvoiceF_Click:
    MsgBox Err.Description
    Resume Exit_emailinvoiceF_Click

End Sub

Answer 1

la commande docmd.sendObject est très limitée.Cela ne vous permet pas de fixer des fichiers à partir du disque.En raison de cette limitation, vous n'avez aucun contrôle sur le nom du fichier et le nombre de fichiers à joindre en utilisant docmd.sendObject .

Vous pouvez trouver cet article utile: http://msdn.microsoft.com/en-us/library/aa167323(v=Office.11).aspx .

J'ai utilisé Outlook.Application objet dans le passé et trouvé ça ok.Il permet d'avoir une interaction de l'utilisateur avant d'envoyer un email.En outre, cela passe directement dans Outlook afin que le suivi pourrait être plus facile.Cette approche a son propre inconvénient, cependant.

Selon votre question concernant le message de réussite, vous pouvez ajouter les éléments suivants à votre code:

....
    DoCmd.SendObject acReport, stDocName, acFormatPDF, [E-mail address], , , "SMI Hardwoods Invoice Ref:" & DeliveryID & ".pdf", strMessage

    'Display success message
    MsgBox("Successfully sent on: " & Date())
End If

Exit_emailinvoiceF_Click:
    Exit Sub
...