automatisch email verzenden

[bloemenman]

Goede avond beste mensen,

ik heb een code voor het verzenden van email doormiddel van een programmaatje die op zich prima werkt, alleen wil ik deze aangepast hebben. Hieronder de code;

With CreateObject("Outlook.Application").CreateItem(0)
.To = "help@helpmij.nl"
.CC = "anderehelp@helpmij.nl"
.Subject = "vraag"
.body = "hier de tekst van de email "
.send
End With

ik wil graag dat de email alleen verzonden wordt als er in cel D3 een tekst staat.
Wie kan mij hierbij helpen?

 

[edmoor]

Zoiets?

If Range("D3").Value <> "" Then
  With CreateObject("Outlook.Application").CreateItem(0)
    .To = "help@helpmij.nl"
    .CC = "anderehelp@helpmij.nl"
    .Subject = "vraag"
    .body = "hier de tekst van de email "
    .send
  End With
End If

 

[huijb]

@bloemenman Als je een woord verkeerd heb getypt kan je gewoon je bericht aanpassen. Het is onnodig om daarvoor een nieuwe reactie te plaatsen.

 

[bloemenman]

:thumb: Helemaal goed!
Weer reuze bedankt hoor!

Fleurige groeten van de bloemenman