Discussion :

[Cyril C]

Bonjour

Je suis nouveau sur le site.

Je suis embêté car j'aimerais ajouter un destinataire (adresse mail) en copie et également ajouter la signature Outlook automatiquement.
Je souhaite ouvrir un mail Outlook à partir d'un tableur Excel

Pouvez-vous m'aider s'il vous plait ?
Je vous remercie d'avance.

Je vous envoie pour information mon code VBA actuel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub mail()
 
 
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objMailitem = objOutlook.CreateItem(0)
 
 
numeroligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
 
Set objRecipient = objMailitem.Recipients.Add(Range("C" & numeroligne))
 
objRecipient.Type = 1
 
 
objMailitem.Subject = "Commande " & Range("D" & numeroligne) & " sur le compte " & Range("F" & numeroligne)
 
 
objMailitem.HTMLBody = "Bonjour<br><br>" _
& "Votre commande " & Range("D" & numeroligne) & " sur le compte " & Range("F" & numeroligne) & " d'un montant de " & Range("E" & numeroligne) & "€ TTC est en préparation et vous sera livrée au plus tôt.<br><br>" _
& "Vous disposez à ce jour d'un solde de " & Range("H" & numeroligne) & " € TTC disponible sur votre budget sponsoring.<br><br>" _
& "Je reste à votre disposition pour tout complément d'information.<br><br>" _
& "Cordialement<br><br><br>" _
& "Cyril Couturier "
 
objMailitem.display
 
 
 
End Sub

[EricDgn]

Bonjour,

La réponse devrait se trouver dans cette discussion.

Cordialement.

[Cyril C]

Bonjour,

La réponse devrait se trouver dans cette discussion.

Cordialement.

Bonjour et merci pour vôtre réponse.
Je suis débutant.

Pouvez-vous écrire le code à ajouter sur mon code VBA existant car quand j'essaie de mon côté cela ne fonctionne pas.

Je vous remercie d'avance et vous souhaite de passer une agréable journée

Cordialement

Cyril Couturier