Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: ik zou willen dat hij alle vinkjes emailt  (gelezen 2627 keer)

0 leden en 1 gast bekijken dit topic.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
ik zou willen dat hij alle vinkjes emailt
« Gepost op: 23 april 2015, 15:42:19 »
dit is wat ik heb werkt goed alleen hij mailt er maar 1
zou willen dat iedereen die een vinkje heeft een mail stuurt hoe doe ik dat ?
Private Sub Sendall_Click()

On Error GoTo Sendall_Err
Dim Email As String
If Me.Verzonden.Value = -1 Then
Me.Email = DLookup("email", "tblpersoneel", "PersoneelNR=" & [Werknemer])
DoCmd.OpenReport "RptInzetschema", acViewPreview, , Me.Filter, acHidden
     DoCmd.SendObject acSendReport, "RptInzetschema", acFormatPDF, Me.Email, , , , , True
       DoCmd.Close acReport, "RptInzetschema"
        ElseIf Me.Verzonden = 0 Then
       
   
           
   Exit Sub

Sendall_Err:
    MsgBox Error$
Else
End If

End Sub
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zou willen dat hij alle vinkjes emailt
« Reactie #1 Gepost op: 26 april 2015, 07:44:19 »
Zo verzend je een mail via outlook van in Access:

Sub sendOutlookEmail(string NaarWie, string Onderwerp , string NaamVanDeBijlage)
Dim oApp As Outlook.Application
Dim oMail As MailItem
Set oApp = CreateObject("Outlook.application")

Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "INHOUD van de MAIL"
oMail.Subject = Onderwerp
oMail.To = NaarWie
oMail.Attachments.Add (NaamVanDeBijlage)
oMail.Send
Set oMail = Nothing
Set oApp = Nothing


End Sub

Naam van de bijlage is dan het volledige pad naar het bestand.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zou willen dat hij alle vinkjes emailt
« Reactie #2 Gepost op: 26 april 2015, 07:53:46 »
Dit is ook wel het bekijken waard.
https://www.youtube.com/watch?v=mKQdNIWotlQ
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: ik zou willen dat hij alle vinkjes emailt
« Reactie #3 Gepost op: 26 april 2015, 16:47:30 »
Als je naar iedereen met een vinkje wil sturen maak je een recordset aan
Dim rs As New ADODB.Recordset
    Dim strSql As String
   
    strSql = "SELECT * FROM MyTable;"
    rs.Open strSql, CurrentProject.Connection
   
    Do While Not rs.EOF
        if rs!AanVinkVeld = true then
           'verstuur een mail
            rs.MoveNext
    Loop
   
    rs.Close
    Set rs = Nothing

Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com