In outlook staat geen verzending

[dinoshop]

Geachte deze script heb van site Helpmij geplukt jouwen deze aangepast. maar hij zegt en laat ook netjes email adressen zien. alleen zie ik in outlook geen verzending staan wat is er verkeerd aan of ?
ook krijg ik niks binnen dus is er iets niet goed in script maar wat

Private Sub Knop964_Click()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim sEmail As String
Dim sVerzonden As String
Dim iAantal As Integer, i As Integer
sEmail = ""

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
        
    sVerzonden = ""
    With CurrentDb.OpenRecordset("QryEmail")
    If Not .RecordCount = 0 Then
        .MoveLast
        .MoveFirst
        iAantal = .RecordCount
        Do While Not .EOF
            sEmail = sEmail & .Fields("Email").Value
            If i < iAantal Then sEmail = sEmail & ";"
            i = i + 1
            .MoveNext
        Loop
    End If
End With
    .Display
                'MsgBox MailOutLook.Body
                sVerzonden = sVerzonden & sEmail & ", "
                
            
        
    
    Do While Right(sVerzonden, 2) = ", "
        sVerzonden = Left(sVerzonden, Len(sVerzonden) - 2)
    Loop
    MsgBox "Er is een mail gestuurd naar " & sVerzonden & "."

    Exit Sub

email_error:
    MsgBox "Er was een foutje..." & vbCrLf & "En wel: " & Err.Description
 DoCmd.OpenReport "RpTPlanning", acViewPreview, , Me.Filter, acHidden
 DoCmd.SendObject acSendReport, "RptPlaning", acFormatPDF, sEmail, , "Onderwerp", "De tekst in de body", True, """"
End Sub

 

[huijb]

Helpmij is een grote database waarin tienduizenden problemen aan de orde worden gesteld. De database wordt gevoed door vraag en antwoord. Nieuwe bezoekers bezoeken Helpmij veelal met een probleem die zij ondervinden bij een programma of anderszins. Wanneer er dus in de database wordt gezocht op "OctaFish" zullen ze jou gestelde vraag waarschijnlijk vinden. Maar hoeveel mensen ondervinden problemen met het programma "OctaFish" persoonlijk denk ik zeer weinig tot geen. Kortom, met een titel als "OctaFish kan je ff kijken" help je weinig tot geen mensen die op Helpmij aanwezig zijn. Probeer een titel te verzinnen die in relatie staat tot je vraag. Hier heeft iemand vele malen meer aan.
Topictitel aangepast.

 

[dinoshop]

aha zal daar aan gaan denken

 

[OctaFish]

Octafish een programma? Heeft m'n familie waarschijnlijk altijd al gedacht .
Je gebruikt in ieder geval de Oulook sessie verkeerd. Ik mis de regel

     With MailOutlook

 

[dinoshop]

en zelfs dat werkt niet

 

[OctaFish]

Dat verbaast me helemaal niks; ik gaf het alleen maar omdat er zo'n beetje helemaal niks deugt van je code. Zo zet je dus wel het object aan (MailOutlook) maar je doet er helemaal niets mee. Je geeft geen email adres, geen bodytekst, niets. Daarnaaast heb je eerst in een lus alle email adressen verzameld in de variabele sEmail, en ga je verderop met deze code aan de slag:

    sVerzonden = sVerzonden & sEmail & ", "
    Do While Right(sVerzonden, 2) = ", "
        sVerzonden = Left(sVerzonden, Len(sVerzonden) - 2)
    Loop

Dat kan dus ook helemaal niet. Althans: wat is hier de bedoeling van?

 

[dinoshop]

Niet ***lig bedoeld maar deze script heb ik hier weggehaald en door jouw geschreven dus had ik grote hoop dat die zou werken .
en ja het verzamelen van de emails doet die goed alleen verzenden dus niet terwijl ik wel een do opdracht gebruik.

kan jij me vertellen wat ik moet aanpassen zodat hij gewoon gaat mailen .

ps hij geeft wel aan dat de email is verzonden, eigenlijk zou dus een fout melding moeten geven wand er is niks verzonden.

 

[OctaFish]

De code is niet volledig, dus die kan nooit zo door mij zijn neergepend . Misschien nog als deelcode bedoeld in de betreffende topic. Maar zoals ik al zei: er ontbreekt van alles in jouw code. Zet ander e.e.a. in een voorbeeldje, dat werkt een stuk makkelijker.

 

[dinoshop]

dit is het geworden en werkt .
heb je nog verbeter punten altijd welkom.

Private Sub Mail_Click()

Dim iaantal As Integer, I As Integer
Dim sEmail As String
Dim sverzonden As String
On Error GoTo Err_Mail_click


Me.Dirty = False


 With CurrentDb.OpenRecordset("Wie Krijgt Brief")
    If Not .RecordCount = 0 Then
        .MoveLast
        .MoveFirst
        iaantal = .RecordCount
        Do While Not .EOF
            sEmail = sEmail & .Fields("Email").Value
            If I < iaantal Then sEmail = sEmail & ";"
            I = I + 1
            .MoveNext
        Loop
    End If
End With
    
    DoCmd.OpenReport "RpTPlanning", acViewPreview, , Me.Filter, acHidden
    DoCmd.SendObject acSendReport, "RptPlanning", acFormatPDF, sEmail, , , Me.Werknemer, , True, """"
    DoCmd.Close acReport, "RptPlanning"
    Exit Sub

    
Err_Mail_click:
    MsgBox Err.Description


End Sub