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
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