MS Access envoyer e-mail (pas à partir d'outlook ou de messagerie de l'utilisateur)

Windows inclut un objet appelé des Objets de Données ou de CDO. Cet objet vous permet d'envoyer des e-mails à l'aide de tout serveur SMTP en supposant que les autres conditions requises sont remplies (pare-feu ouvert, fournisseur d'accès internet ne bloque pas les ports, le compte est configuré sur le serveur SMTP, serveur SMTP autorise le relais, etc).

La plupart des exemples que j'ai trouvés utiliser la liaison tardive, qui est préféré. Dans mes tests sur XP, il est apparu que la bonne référence de la bibliothèque, si vous préférez utiliser la liaison anticipée, est "Microsoft CDO pour Windows 2000".

Il est important de savoir que, chaque fois que vous envoyez un email, vous devrez l'envoyer par (ou en dehors) une sorte de serveur de messagerie. Cela signifie que vous devez vous authentifier avec ce serveur de messagerie et aussi signifie généralement que vous devez envoyer l'email à l'aide D'une adresse email qui existe sur le serveur de messagerie.

Voici un code à l'aide de la liaison tardive:

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
' Use basic (clear-text) authentication.
Const cdoBasic = 1
' Use NTLM authentication
Const cdoNTLM = 2 'NTLM

Public Sub SendEmail()
    Dim imsg As Object
    Dim iconf As Object
    Dim flds As Object
    Dim schema As String

    Set imsg = CreateObject("CDO.Message")
    Set iconf = CreateObject("CDO.Configuration")
    Set flds = iconf.Fields

    ' send one copy with SMTP server (with autentication)
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    flds.Item(schema & "sendusing") = cdoSendUsingPort
    flds.Item(schema & "smtpserver") = "mail.myserver.com"
    flds.Item(schema & "smtpserverport") = 25
    flds.Item(schema & "smtpauthenticate") = cdoBasic
    flds.Item(schema & "sendusername") = "[email protected]"
    flds.Item(schema & "sendpassword") = "password"
    flds.Item(schema & "smtpusessl") = False
    flds.Update

    With imsg
        .To = "[email protected]"
        .From = "[email protected]"
        .Subject = "Test Send"
        .HTMLBody = "Test"
        '.Sender = "Sender"
        '.Organization = "My Company"
        '.ReplyTo = "[email protected]"
        Set .Configuration = iconf
        .Send
    End With

    Set iconf = Nothing
    Set imsg = Nothing
    Set flds = Nothing
End Sub

OriginalL'auteur HK1

Je ne peux pas ajouter ce pour les commentaires car je n'ai pas assez de réputation, donc merci de ne pas la hache de moi.

"Semble que cette méthode permet de charrier à propos de quoi que ce soit sur mon serveur. Juste remarqué qu'il y a un addAttachment méthode. Pourrait que le travail avec un chemin d'accès relatif-à-dire, d'une feuille excel? "

Il fonctionne pour moi (Access 2010, Exchange 2010):

.AddAttachment ("URL ICI")

https://msdn.microsoft.com/en-us/library/ms526453(v=exchg.10).aspx
https://msdn.microsoft.com/en-us/library/ms526983(v=exchg.10).aspx

OriginalL'auteur UpTide

Dans mon entreprise, j'ai utilisé une autre solution. J'ai créé une Bibliothèque de classes C# avec COM classes /objets. COM les cours peuvent être mis en œuvre dans votre application Access et de cette façon vous pouvez utiliser tous les avantages de C# (Mailing par exemple) et toujours l'utiliser (l'appelant) dans Access.

Le seul inconvénient est que vous devez vous inscrire votre Classe à la Bibliothèque (DLL) à tous les ordinateurs qui utilisent votre application access. Je l'ai fait avec un simple power-shell script qui s'exécute au démarrage de l'application Access.

Un bon début pour un COM en fonction de bibliothèque est ici: https://www.codeproject.com/Articles/7859/Building-COM-Objects-in-C

Si vous désirez avoir plus d'informations à ce sujet alors que je suis toujours heureux de vous aider.

OriginalL'auteur Nicolas