VBA Outlook creer un reminder

Bonjour,

Je crée ce poste aujourd'hui pour savoir si quelqu'un connait la commande VBA pour créer un reminder.

Car j'ai trouvé seulement la commande pour envoyer un mail ( OutLookMailItem).

Merci d'avance

Bonjour,

Regarde tout au bas de cette page : Sujets similaires

ricoh

Re,

Oui je sais bien sauf qu’il n'y a pas le fait de créer un reminder pour quelqu'un il y a que pour sois même.

Bonjour,

La première étape est de maîtriser l'envoie de mails.

Ensuite à ces envois, on ajoute les rendez-vous.

Pour de petites quantités, on le fait manuellement.

Sinon, il y a un exemple : ICI ...

ricoh

Re,

Je sais bien envoyer un mail mais je veux pas envoyer de mail c'est bien la ou est la dificulte ... J'ai dit un reminder pas un mail ni rendez-vous, tu vois la nuance ou pas ?

re,

Sub Reminder_Outlook()

Dim ecriture1 As Variant

Dim ecriture2 As Variant

Dim ecriture3 As Variant

Dim ecriture4 As Variant

Dim ecriture5 As Variant

Dim ecriture6 As Variant

Dim OutLookApp As Object

Dim myItem As Object

Ligne = 2

For i = 2 To 10

ecriture1 = Range("P" & Ligne).Value

ecriture2 = Range("S" & Ligne).Value

ecriture3 = Range("H" & Ligne).Value

ecriture4 = Range("B" & Ligne).Value

ecriture5 = Range("AC" & Ligne).Value

ecriture6 = Range("F" & Ligne).Value

If ecriture1 = "short term contract" Or ecriture2 = "yes" Or ecriture3 = "no" Or ecriture4 = "out" Or ecriture4 = "PDG" Or ecriture5 = "yes" Or ecriture6 = "out" Then

Ligne = Ligne + 1

Else

Set OlApp = CreateObject("Outlook.Application")

Set myItem = OlApp.CreateItem(3)

myItem.Assign

Set myDelegate = myItem.Recipients.Add

myItem.Subject = "Trial periode"

myItem.Body = Range("K" & Ligne).Value & " " & Range("E" & Ligne)

myItem.ReminderTime = Range("D" & Ligne).Value

myItem.DueDate = Range("C" & Ligne).Value

myItem.ReminderSet = True

myItem.Display

myItem.send

Windows("Copy of Starter tracker new.xlsm").Activate

Range("AC" & Ligne).Select

ActiveCell.FormulaR1C1 = "yes"

Ligne = Ligne + 1

End If

Next i

End Sub

Voilà mon code le seul soucis que j'ai c'est pour le destinataire après add je peux juste mettre des nom je peux lui dire d'aller prendre l'adresse mail dans la case Range("B" & Ligne), une idée ?

Re,

C'est bon j'ai résolu mon problème, j'ai créé une variable pour le range et après derrière add j'ai ajoute (nomdelavariable) et ça marche !