Emailen vanuit Access

  • Onderwerp starter Onderwerp starter STIN0
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

STIN0

Gebruiker
Lid geworden
18 feb 2004
Berichten
131
Hieronder de code waar iemand mij eerder op heeft gewezen.

Aangezien ik weinig ervaring heb met het zelf schrijven van code, met name de juiste syntaxis van vb, heb ik nog een vraagje.

# hoe krijg ik in het veld Aan: van de Outlook message die wordt gegenereerd automatisch alle emailadressen die in Access zijn ingevuld in het veld email.

#hoe voeg ik deze code correct toe aan een knop in het formulier. Ofwel, hoe brei ik Sub sbSendMessage(Optional AttachmentPath) vast aan Private Sub Knop01_Click() ????



Sub SendMessage(Optional AttachmentPath)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment

' Maak de Outlook-sessie.
Set objOutlook = CreateObject("Outlook.Application")

' Maak het bericht.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg
' Voeg de geadresseerden voor het vak Aan toe aan het bericht.
Set objOutlookRecip = .Recipients.Add("Nancy Davids")
objOutlookRecip.Type = olTo

' Voeg de geadresseerden voor het vak CC toe aan het bericht.
Set objOutlookRecip = .Recipients.Add("Albert Vos")
objOutlookRecip.Type = olCC

' Stel het onderwerp, de berichttekst en de urgentie voor het bericht in.
.Subject = "Dit is een test van Automatisering met Microsoft Outlook"
.Body = "Dit is echt de laatste test." & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'Hoge urgentie

' Voeg bijlagen toe aan het bericht.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Zet de naam van elke geadresseerde om.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next
.Send

End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
 
Het koppelen van de code aan de knop:
Code:
Private Sub Knop01_Click() 
  call SendMessage
end sub

Om de geadresseerden in het "Aan" veld te krijgen moet je een string opbouwen die alle geadresseerden bevat. als het 1 veld op het formulier betreft kun je dit doen door in plaats van "Nancy Davids" me.txtEmail in te vullen.


Suc6,
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan