Commande VBA

Question

Bonjour,

Je m'occupe d'un club de l'Amitié de 500 personnes d'un certain "Age", pas tous !!!.

Je réalise un calendrier pour souhaiter leurs anniversaires avec envoi par mail le jour "J", (je ne suis pas un crack en VBA).

J'ai créer un bouton avec une commande VBA pour envoyer le ou les mails, 6 au maximum.

Mon problème c'est que je n'arrive pas à trouver la commande qui me permet de dire que si une ou des cellules de la colonnes K est ou sont vide on fait rien ?

Car, il me fait une erreur en disant qu'il manque des adresses mail, dans la ligne je remplace ".Send" par ".Display" il y a automatiquement 6 mails.

Dans le cas ci dessous 1 mail avec adresse et 5 sans adresse.

Puis, où la placer dans ma commande ?

Merci par avance,

Emmanuel

Answer 1

Pour info :

>ComandButton1_Click et non CommandButton1_Click

> le zéro (0) au lieu d'un O dans Create0bject

Answer 2

Bonjour Arnaud,

Pour <&gt, je suis innocent. Pour le reste, erreurs d'extraction de texte d'une image ne provoquant pas d'erreur VB. Donc :

Daniel

Answer 3

Bonjour Arnaud,

Exact. De toute façon, il n'y a que les lignes en rouge à ajouter.

Daniel

Answer 4

Bonjour Daniel,

Le copier-coller du code pose quelques problème maintenant 😱

If Cells(ligne, 11) <&gt; "" Then

Set LeYai1 = Create0bject("Out100k.Äpp1ication") => ca c'est nouveau !

J'ai vu ça hier, je n'avais pas vu le problème avant.

Answer 5

Bonjour,

Essaie comme ça :

Private Sub ComandButton1_Click()
Dim LeYai1 As Variant
Dim ligne As Integer
'Création d'un objet Outlook
If Cells(ligne, 11) <> "" Then
Set LeYai1 = Create0bject("Out100k.Äpp1ication")
For ligne = 5 To 10 'Ecriture du mail
With LeYai1.CreateItem(olMailItem)
'...
'...
'etc.
End With
Next
End If

end Sub

(Les lignes à rajouter sont en gras et en rouge)

Daniel