ENVOIE D EMAIL VIA OUTLOOK

[kINGRON]

Bonjour a tous,
je souhaiterais envoyer par e mail (via Msft outlook a la meme adresse email
)
La ligne 13 en mettant le texte suivant:

you bought 100 yahoo @ 57.80 gross / 57.7850 Net.



Merci

 

[Ronan]

Bonsoir,

Voici un exemple :

Sub EnvoiEmail()

'affectation de l'application OUTLOOK à la variable "appmess"
Set appmess = CreateObject("outlook.Application")

'affectation à la variable "mess" d'un nouveau message _
à partir de l'application OUTLOOK (appmess)
Set mess = appmess.CreateItem(olMailItem)

With mess

.Subject = "Bonjour" 'inscription du mot "bonjour" en objet

.Body = "Coucou, ceci est le message" 'inscription d'un texte dans le corp du message ou par exemple, .Body= Cells(13,1).Value

.Recipients.Add("ronan@zik.mu").Type = olBCC 'affectation de l'adresse _
du destinataire dans la zone "CCI" grace au type "olBCC" (pour la zone "CC" _
indiquer le type "olCC", pour la zone "A", ne pas indiquer de type). On peut _
rajouter autant de destinataire que l'on veut en inscrivant autant de ligne _
que nécessaire avec un type différent si besoin.

.Attachments.Add "c:\windows\bureau\capture.ini" 'insertion d'une pièce jointe si besoin

.Send 'envoi du message

End With

Set mess = Nothing 'on libère la variable "mess"

Set appmess = Nothing 'on libère la variable "appmess"

End Sub

@+

Ronan

 

[alain]

Bonsoir kINGRON, Ronan

Ronan dans ton exemple, est il possible d'envoyé une plage complète genre ("A1: J15") en tant que corps de message car cela m'intéreserais

Dans l'attente, bonne nuit et a demain

 

[Ronan]

Re-bonsoir,

Je pense que le mieux, serait de joindre le fichier xls (ou une copie).
Sinon, pour ma part, il ne reste plus que la concaténation.
Je ne vois pas d'autre solution.

@+

Ronan

 

[alain]

re tous le monde

merci pour l'info ronan et bonne soirée

Alain

 

[KINGRON]

MERCI BCP...

 

[HD]

J ai essaye de faire marcher cette macro mais il y a un problem de Bug dans
la ligne ".SEND" qui se selectionne en jaune.

Quelqu`un peut il m eclairer?


Merci

 

[Ronan]

Bonsoir,

Logiquement, le programme fonctionne correctement.
Il a été conçu pour utiliser uniquement le programme Microsoft Outlook.
Il ne fonctionnera pas avec Outlook Express (par exemple).
Pour qu'il fonctionne correctement avec Outlook, il faut activer la DLL "Microsoft Outlook x.x Object Library" dans le menu "Outil" puis "Références" de VBA.

@+

Ronan