Twee problemen met vba code

[gast0660]

Hoi iedereen,

Ik heb een vba code (die werkt, lees email wordt verstuurd)
Maar volgens mijn code zouden de email adressen (in blad 1),range a1 tot a10 moeten verschijnen in outlook onder TO als in range B op yes staat en zou in de body de tekst van blad 1 range C moeten verschijnen.
Waar zit de fout?
@edmoor, ik heb waarschijnlijk mijn vorig postje te vroeg op opgelost gezet.
In bijlage, het testbestandje
Alvast bedankt voor het meedenken.

 

[edmoor]

Nog steeds foute volgordes. Je gebruikt nu eerst de .To = strto en daarna ga je die variabele pas vullen. Hetzelfde geldt voor de .strbody.
Wijzig ook je inspringpunten want die liggen nu dusdanig door elkaar dat het geheel maar lastig te volgen is.

 

[gast0660]

hoi edmoor,
Ik zie het eventjes niet, ben niet zo'n crack als jij.. Ik probeer dit in elkaar te knuttselen voor een vrijwilligersorganisatie die figuranten leveren voor rampoefeningen. (heb nu eemaal beloofd een poging te wagen). Ik ben er bijna klaar mee. Alleen struikel ik nog over het mailen en over een andere code waar ik graag zou hebben dat er automatish een bepaalde map wordt geopend. De rest is klaar. Ik zal het bestand doorsturen maar ik moet dit doen via tiny upload, want het rar bestand is 142 kb. Daar zal je zien op het eerste tabblad (ingave) er een knopje staat exporteren, daar is een macro aan verbonden, daar zou ik nog graag aan toevoegen dat er een bepaalde map wordt geopend. vb: mijn documenten/simulanten/overzicht en op het tabblad (mailinglist) de knop mailen automatisch outlook opent met de emailadressen die werden geselecteerd door het selecteren van yes en in de body de bijhorende tekst verschijnt. (zoals het testbestandje). (de formules zijn terug te vinden onder tabbladen zichtbaar maken). Er zijn waarschijnlijk veel betere oplossingen maar het is nu eenmaal +- 10 jaar geleden dat ik nog met excel gewerkt heb
Hier kan je het bestandje downloaden
http://s000.tinyupload.com/?file_id=06890759789938630486
Alle hulp is welkom
Alvast bedankt

 

[edmoor]

Geen probleem. Als een ander me niet voor is zal ik er vanavond even naar kijken.

 

[gast0660]

Hoi iedereen,
probleem 1 is ondertussen opgelost (exporteren naar een bepaalde map)

Graag nog een voorzetje voor het mail probleem.

Greetz

 

[edmoor]

Je mail probleem heb ik in #2 al uitgelegd toch?

 

[gast0660]

Hoi edmoor,
Klopt, maar ik zie het eventjes niet
Een voorzetje met het testbestandje?
In ieder geval al veel dank voor uw hulp
Greetz

 

[gast0660]

@ edmoor,
Ik benijd uw kennis

 

[OctaFish]

En toch is die nauwelijks nodig voor jouw probleem . Kijk eens goed naar wat je doet:

        With OutMail
[COLOR="#FF0000"][B]            .To = strTo[/COLOR][/B]
            For Each cell In ThisWorkbook.Sheets("Blad1").Range("A1:A10")
                If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
                    If strTo <> "" Then strTo = stro & ";"
                    strTo = strTo & cell.Value & ";"
                End If
            Next cell
            .CC = ""
            .BCC = ""
            .Subject = "Simulaten gevraagt voor volgende dagen: (indien beschikbaar invullen en terugsturen)"
[COLOR="#FF0000"][B]            .body = strBody[/COLOR][/B]
            With ThisWorkbook.Sheets("Blad1")
                strBody = "Hi there" & vbNewLine & vbNewLine 
            End With
            .Attachments.Add DestWB.FullName
            .Display
        End With

Kijk dus waar de rode code staat, en waar de blauwe code. En denk dan even aan de logica er achter. Het is echt een kwestie van logisch denken, dat programmeren .

        With OutMail
            For Each cell In ThisWorkbook.Sheets("Blad1").Range("A1:A10")
                If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" Then
                    If strTo <> "" Then strTo = stro & ";"
                    strTo = strTo & cell.Value & ";"
                End If
            Next cell
[COLOR="#0000FF"][B]            .To = strTo[/B][/COLOR]
            .CC = ""
            .BCC = ""
            .Subject = "Simulaten gevraagt voor volgende dagen: (indien beschikbaar invullen en terugsturen)"
            With ThisWorkbook.Sheets("Blad1")
                strBody = "Hi there" & vbNewLine & vbNewLine 
            End With
[COLOR="#0000FF"][B]            .body = strBody[/B][/COLOR]
            .Attachments.Add DestWB.FullName
            .Display
        End With

 

[gast0660]

Hoi octafish,
Hartelijk dank voor uw reactie.
Tja, je hebt volkomen gelijk, maar ik ben wakker van 4 uur deze morgen en logisch denken? ? Maar ik benijd uw kennis ook Ik heb ook al veel oplossingen gezien die van uw hand kwamen:thumb:
Ik ga het uitproberen (waarschijnlijk morgenvroeg), indien het werkt zet ik de vraag op opgelost.

Greetz

 

[gast0660]

Hoi octafish, en andere helpers

Het body probleem is opgelost., maar ik heb tweemaal 'yes' aangeduid, maar ik krijg maar een emailadres? Zie ik er weer over?
Hierbij het aangepaste bestandje

 

[edmoor]

Kijk eens goed hier naar en merk op wat er niet klopt:
If strto <> "" Then strto = stro & ";"

 

[OctaFish]

Typen op een iPad.... ach, je kan er ook prima mee tafeltennisen .

 

[edmoor]

Veelzijdig apparaat hoor. Ik gebruik hem ook voor het snijden van kaas en worst

 

[gast0660]

Hoi Edmoor & Octafish,
Bij deze is mijn vraag opgelost.
Hartelijk dank voor jullie hulp.

Greetz