e-mail à l'aide de Access et VBA sans MAPI

Je voudrais envoyer un email à partir de Microsoft Access sans surveillance à l'aide de VBA. Je comprends que la méthode intégrée “SendObject” utilise MAPI sens invites de sécurité et de quelque chose comme Outlook configuré. Depuis que je veux utiliser le Planificateur de Tâches pour le coup d'envoi de rapports différents, je me suis penchée loin de MAPI et préférez une autre solution. Non à une demande de transport, mais seulement en interne. Des idées?

OriginalL'auteur Knox | 2009-04-20

1

Vous aurez besoin d'un serveur SMTP qui vous permettra d'envoyer un email. Ensuite, vous devez utiliser le CDO objet du message.

J'ai pensé CDO est venu avec IIS - je l'utiliser sur le client? Pour le serveur SMTP serais-je capable d'utiliser quelque chose comme gmail?
Oui, l'utiliser dans le VBA. Je n'ai rien trouvé que les limites de ce IIS ou même l'Échange, mais vous pouvez avoir des problèmes avec votre fournisseur. Je ne sais pas assez sur gmail. Je suppose que si ils vous permettent de connecter avec Outlook via SMTP (je sais que vous ne voulez pas faire cela avec votre application, mais il serait un bon test de connexion.).
J'étais vraiment à l'aide de gmail comme un exemple; je pense qu'ils utilisent un inhabituel port ou quelque chose. Je vais vous donner CDO d'essayer.

OriginalL'auteur JeffO

Voici le code de test qui a fonctionné pour moi avec les CDO et gmail.

Sub mtest()

Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "[email protected]"
msgOne.From = "[email protected]"
msgOne.Subject = "Test email"
msgOne.TextBody = "It works just fine"
msgOne.send
End Sub

été à la recherche pour le code qui fonctionne parfaitement avec gmail. J'ai foiré sur le smtpauthenticate de configuration. merci!

OriginalL'auteur Knox

1

Vous pourriez trouver Tony Toews est Accès e-Mail FAQ à portée de main.

Je downvoted parce que la réponse a été un talon, et la page que vous liez a non-code de travail et des conseils qui n'est pas destiné à des solutions (même en 2009).

OriginalL'auteur David-W-Fenton

Je le fais de cette façon, la note, vous devez avoir installé Outlook pour qu'il fonctionne.


Sub btnSendEmail_Click()
    Dim OutApp As Object
    Dim OutMail As Object

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

    strBody = "<html><head></head><body>"
    strBody = strBody & "Your message goes here"
    strBody = strBody & "</body></html>"

    Set OutMail = OutApp.CreateItem(0)

    OutMail.To = "[email protected]"
    OutMail.BCC = "[email protected]"
    OutMail.Subject = "Test message"
    OutMail.HTMLBody = strBody


    OutMail.Send  'Send | Display
    Set OutMail = Nothing
End Sub

Je ne voulais pas utiliser Outlook, parce que ce sera en fonctionnement sans surveillance, éventuellement, dans un compte non installé.

OriginalL'auteur Ron

1

Perspectives de Rachat est gratuit et très largement utilisé: http://www.dimastr.com/redemption/

Il est très très proche de l'original modèle d'objet outlook, de sorte que la courbe d'apprentissage est le gâteau:)

Merci pour la suggestion.

OriginalL'auteur Oorang

Vous devez vous connecter pour publier un commentaire.