email versturen vanuit formulier

[JEPEDEWE]

Hallo,
Ik heb een veld in een record met een mailadres
Ik maak een knop "Email" die een form opent met 3 velden: mailadres, het onderwerp en de inhoud
Hier maak ik een knop: verzenden

de bedoeling is dat die mail ook als dusdanig verzonden wordt
via commando:
DoCmd.SendObject , , Forms![E_mail]![TOBOX], , , Forms![E_mail]![SUBJECTBOX], Forms![E_mail]![MESSAGEBOX]

ik krijg echter een boodschap waarin ik een profiel moet selecteren
Default staat hier Outlook in maar ik gebruik geen outlook
Ik zou dus een ander profiel moeten aanmaken in mijn account... maar hier vind ik niet de weg
Iemand een idee?

Bedankt

 

[OctaFish]

Default staat hier Outlook in maar ik gebruik geen outlookt

Wat gebruik je dan wel? SendObject is heel beperkt, en sowieso vindt Microsoft samenwerken met andere mail pakketen een crime. Met SendObject kun je alleen je default lokale mail pakket gebruiken, en dus geen webmail. Om maar eens wat te noemen.

 

[NoellaG]

Dit helpt misschien:

https://social.msdn.microsoft.com/Forums/en-US/a8524b9b-a94d-4a45-a8d5-ff71baa60fd1/i-need-to-send-emails-from-access-2013-using-gmail?forum=accessdev

 

[JEPEDEWE]

Ik schrijf dus

    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") = "smtp.telenet.be"
    flds.Item(schema & "smtpserverport") = 587
    flds.Item(schema & "smtpauthenticate") = cdoBasic
    flds.Item(schema & "sendusername") = "jp.dewinter@telenet.be"
    flds.Item(schema & "sendpassword") = "xyz"
    flds.Item(schema & "smtpusessl") = False
    flds.Update
 
    With imsg
        .TO = Forms![E_mail]![TOBOX]
        .From = "jp.dewinter@telenet.be"
        .SUBJECT = Forms![E_mail]![SUBJECTBOX]
        .HTMLBody = Forms![E_mail]![MESSAGEBOX]
        Set .Configuration = iconf
        .Send
    End With
 
    Set iconf = Nothing
    Set imsg = Nothing
    Set flds = Nothing

en krijg op .Send een foutmelding:

"de configuratiewaar de" SendUsing" is ongeldig

 

[OctaFish]

Ik mis de constanten die je ook nodig hebt. Staan die wel bovenin je module?

 

[JEPEDEWE]

klopt Michel

Maar nu krijg ik:

De server heeft het adres van de afzender geweigerd. Reactie van server 530 5.1.0 must authenticate first

 

[OctaFish]

Ben je wel ingelogd op de server?

 

[OctaFish]

Kijk anders eens op de site van RondeBruin. Die codes werken doorgaans zonder dat je veel hoeft aan te passen. Let wel: de code staat in een Excel bestand, maar zou dus ook in Access moeten werken.

 

[OctaFish]

En nog een voorbeeldje

 

[JEPEDEWE]

dit gaat mijn petje te boven.. sorry

 

[OctaFish]

Het is ook een ingewikkelde procedure. Wil je SendObject simpel gebruiken, gebruik dan Outlook. Zit als het goed is gewoon in je Office pakket, dus kost je niks .

 

[JEPEDEWE]

ik probeer die weg nog maar eens...
Gr
JP

 

[JEPEDEWE]

Het werkt, was goed idee... weerom
Bedankt

 

[OctaFish]

Ge zijt welkom .

 

[JEPEDEWE]

nu het kruistabelleke nog, en alles is uitgevinkt voor vandaag

 

[OctaFish]

Kruistabel staat klaar