Email merge

[sjobbels]

hoe doe ik dat?
Als ik de msgbox in de code plaats krijg ik constant foutmelding 91 zoals in een van mijn eerder posts vermeld.

 

[OctaFish]

Door de volgende aanpassing:

stLinkCriteria = stLinkCriteria & .Fields(7).Value & ";"
Msgbox stLinkCriteria
Dan moet-ie aangeven welke adressen er in het filter zitten.

 

[sjobbels]

die msgbox werkt wel ; ) maar hij geeft in de msgbox alleen 1 emailadres aan.
En daarna in outlook ook weer maar 1 emailadres....

 

[sjobbels]

wat me wel opvalt in vergelijking met de mailmerge die wel werkt en waar ik deze variant op baseer, is dat bij de mailmerge wel altijd de tmp file (qryEmailgroep) in word in mijn directory verschijnt, en bij deze doet hij dat niet....

 

[OctaFish]

De email adressen worden opgehaald uit de tijdelijke tabel. Heb je die al eens gecontroleerd voordat de email merge wordt uitgevoerd? Want ik krijg de indruk, dat er maar één record in word gezet. En dat verklaart dan natuurlijk een hele hoop...

 

[sjobbels]

Als ik er 5 selecteer staan er ook 5 rijen met gegevens incl emailadres in de tmp tabel....

 

[sjobbels]

Als het goed is, is het me gelukt, morgen nog een keer testen en dan zal ik de code plaatsen!
Bedankt voor jullie hulp!

 

[ReneDirks]

'tis mij nog steeds niet helemaal duidelijk, maar als je idd maar één mail wilt versturen met alle email adressen in eens dan zou het zo moeten zijn:

Public Sub Samenvoegen()
Dim rs As Recordset
Dim Email As String
Dim stLinkCriteria As String
Dim stSubject As String
Dim Message As String
    
    With CurrentDb.OpenRecordset("SELECT * FROM tmp")
        If .RecordCount > 0 Then
            .MoveFirst
            [B]stSubject = "Test"[/B]
            Do While Not .EOF
                stLinkCriteria = stLinkCriteria & .Fields(7).Value & ";"
                .MoveNext
            Loop
            [B]DoCmd.SendObject acSendNoObject, , , stLinkCriteria, , , stSubject[/B]
      End If
        .Close
    End With
End Sub

Je moet namelijk EERST de string opbouwen in de loop en dan één keer een send command geven. Wel opletten, veel smtp servers vinden 20 TO: adressen maximaal

 

[sjobbels]

Hoi Rene,

bedankt voor je reactie en voor de tip. Hier volgt mijn werkende code:

Public Sub Samenvoegen()
Dim rs As Recordset
Dim Email As String
Dim stLinkCriteria As String
Dim stSubject As String
Dim Message As String
    
   With CurrentDb.OpenRecordset("SELECT * FROM tmp2")
        If .RecordCount > 0 Then
            Do While Not .EOF
            stLinkCriteria = stLinkCriteria & .Fields(7).Value & ";"
            .MoveNext
            Loop
            MsgBox "Aantal records: " & .RecordCount, vbOKOnly
          End If
        .Close
    End With
DoCmd.SendObject acSendNoObject, , , , , stLinkCriteria, stSubject
End Sub

Ik heb de tmp file gerenamed naar tmp2 omdat een andere formulier ook al gebruikt maakt van tmp.

Octafish en Rene nogmaals dank voor jullie hulp!