Invullen Outlook venster Nieuw Bericht

[groenenbb]

Hoi Allemaal,

In een formulier heb ik een veld opgenomen met de naam Emailadres.
De getoonde emailadressen worden opgehaald uit een database na het invullen van een naam.

Ik ben zover dat ik aan de hand van een opdrachtknop een Nieuw Bericht venster van Outlook krijg. Nu zou ik graag willen dat de waarde vermeld in het veld Emailadres na een klik op de opdrachtknop in dit Nieuw Bericht venster als Recipeints ingevuld wordt.

Gr. Stefan

 

[groenenbb]

Iemand die mij kan helpen met deze vraagstelling?

Hoe spreek ik bijvoorbeeld in access (VBA) een tabelveld aan.
De waarde uit dit veld moet in het bericht venster van Outlook getoond worden.

gr. Stefan

 

[Dolfke]

Hallo groenenBB,

DoCmd.SendObject , , , strRecipient, , , strSubject, varBody, True

strRecipient kan je nu vullen met je tekstbox

strRecipient = Me.UwEMailveld

Als je meerdere email adressen hebt via een query kan onderstaande code u op weg helpen

Private Sub cmd_email_Click()
On Error GoTo Err_cmd_email_Click

    Dim strRecipients As String
    Dim rst As DAO.Recordset
    Dim StrSQl As String
    
    StrSQl = "Select qryEmailAdressen.[Email] From qryEmailAdressen"
    Set rst = CurrentDb.OpenRecordset(StrSQl)
    Do While Not rst.EOF
    strRecipients = strRecipients & ";" & rst![Email]
    rst.MoveNext
    Loop
    strRecipients = Right(strRecipients, Len(strRecipients) - 1)
   
    rst.Close
    Set rst = Nothing
    
    DoCmd.SendObject ,,, strRecipients, , , "TiteleMail", "HierTekstInEmail ."

Moet nog aan gesleuteld worden naar gelang de situatie maar dit zou je toch al op weg moeten helpen.

Anders een beetje meer uitleg of een voorbeeld database gewinzipt


Groetjes
dolfke