Mail sturen vanuit Excel , Als opdracht 100% klaar is

[jo geuens]

Hoi ik probeer een mail te sturen vanuit excel wanneer mijn opdracht status 100% is
dit lukt me echter niet enkel als de cel waarde in "F" 100 is lukt het perfect .

moet ik nog iets toevoegen zodat het met percentage getallen ook lukt ?


Code:

Sub mail()
     Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range

   

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
    For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "C").Value) = "yes" _
           [COLOR=#ff0000]And LCase(Cells(cell.Row, "F").Value) = "100%" _[/COLOR]
           And LCase(Cells(cell.Row, "D").Value) <> "send" Then

            Set OutMail = OutApp.CreateItem(0)

            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Reminder"
                .Body = "Beste " & Cells(cell.Row, "A").Value _
                & vbNewLine & vbNewLine & _
                        "De opdracht die gevraagd was is uitgevoerd " & _
                         Cells(cell.Row, "G").Value & _
                        "your account up to date."
                'You can add files also like this
                '.Attachments.Add ("C:\test.txt")
                .Send  'Or use Display
            End With
            On Error GoTo 0
            Cells(cell.Row, "D").Value = "send"
            Set OutMail = Nothing
        End If
    Next cell

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 

[snb]

Kun je svp de code tussen code tags zetten ?

 

[jo geuens]

hoe bedoel je ?

wat wil je zeggen de code tussen tags zetten

moet ik dit op een ander forum zetten dan ?

 

[snb]

Gebruik de zoekterm van dit forum eens.

 

[jo geuens]

hoop dat het dit is wat je bedoeld

kan je me dan ook verder helpen met mijn probleem

 

[mcs51mc]

dit lukt me echter niet enkel als de cel waarde in "F" 100 is lukt het perfect .

Dat is toch wel dubbelzinnig opgesteld

Wat zit er eigenlijk in kolom "F"?
Tekst of getallen geformateerd als percenten (dus eigenlijk getallen tussen 0 en 1 die de gebruiker ziet als 0% tem 100%) of ... ...

Zijn het getallen:
dan zal de property ".Value" de waarde 1 geven en niet 100%
dan zal de property ".Text" de waarde 100% geven

Is het tekst: dan geven beide properties de waarde "100%"

Gebruik desnoods "Debug.Print" om te achterhalen wat beide properties geven als resultaat.

Hopelijk heb je hier iets aan...

 

[jo geuens]

:thumb: Thx mcs51mc mijn probleem is hiemee opgelost