Envoi mail

butterfly88 · 1 Août 2008

Bonjour,

Je voudrais envoyer un lien par email via du VBA excel, et sans le classeur, seulement un message et un accusé de reception.

Comment on fait ?

Merci d'avance

butterfly88 · 1 Août 2008

Re : Envoi mail

Personne à une idée ?

MichelXld · 1 Août 2008

Re : Envoi mail

bonsoir

Un exemple en utilisant Outlook

Code:

Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
 
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "[EMAIL="NomPrenom@mail.fr"]NomPrenom@mail.fr[/EMAIL]"
        .Subject = "Le titre du message"
        .Body = "Découvrez le site ci dessous" & _
            vbLf & "[I]Ce lien n'existe plus[/I]" & vbLf & vbLf & _
            "Cordialement" & vbLf & "[EMAIL="emetteur@mail.fr"]mailto:emetteur@mail.fr[/EMAIL]"
        .Display
        .Save
        .Send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

Un autre exemple en utilisant la méthode CDO.

Code:

Sub liensDansCorpsDuMessage_CDO()
'adapté de : [URL="http://support.microsoft.com/default.aspx?kbid=286430"]How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory[/URL]
Dim iMsg As Object, iConf As Object
Dim strHTML As String
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>Découvrez le site ci dessous<BR><BR>"
strHTML = strHTML & "<A href='http://www.nomdusite.com'>Cliquez ici.</A>"
 
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Environ("UserName") & "<BR>"
strHTML = strHTML & "<A href=mailto:emetteur@mail.fr>Mon adresse mail</A>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
With iMsg
    Set .Configuration = iConf
    .To = "[EMAIL="NomPrenom@mail.fr"]NomPrenom@mail.fr[/EMAIL]" 'Renvoie une erreur si l'adresse est non valide
    '.From = "[EMAIL="youralias@yourdomain.com"]youralias@yourdomain.com[/EMAIL]"
    .Subject = "Test Envoi liens par mail"
    .HTMLBody = strHTML
    .Send
End With
End Sub

Tu trouveras des exemples dans ce lien pour les accusés de réception :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

bon week end
michel

butterfly88 · 4 Août 2008

Re : Envoi mail

merci beaucoup, mais qu'est ce que cela veut dire :
Set OlItem = Nothing
Set OlApp = Nothing

Et comment faire pour envoyer à plusieurs personne en même temps ?

MichelXld · 4 Août 2008

Re : Envoi mail

bonjour

merci beaucoup, mais qu'est ce que cela veut dire :
Set OlItem = Nothing
Set OlApp = Nothing

Cela permet de libérer l'espace mémoire utilisé par la variable objet.
Ici ce n'est pas vraiment utile car normalement l'espace est automatiquement libéré lorsque l'on exécute la ligne "End Sub"

Et comment faire pour envoyer à plusieurs personne en même temps ?

Tu peux utiliser cette syntaxe

Code:

With OlItem
    .Recipients.Add "[EMAIL="NomPrenom01@mail.fr"]NomPrenom01@mail.fr[/EMAIL]"
    .Recipients.Add "[EMAIL="NomPrenom02@mail.fr"]NomPrenom02@mail.fr[/EMAIL]"
    .Recipients.Add "[EMAIL="NomPrenom03@mail.fr"]NomPrenom03@mail.fr[/EMAIL]"

bonne journée
michel

butterfly88 · 4 Août 2008

Re : Envoi mail

Ok merci pour ton aide !

butterfly88 · 4 Août 2008

Re : Envoi mail

Et avec MailItem on peut recevoir un accusé de reception ?

MichelXld · 4 Août 2008

Re : Envoi mail

bonsoir

Code:

With OlItem
    'Accusé de réception
    .OriginatorDeliveryReportRequested = True
    'Accusé de lecture
    .ReadReceiptRequested = True

bonne soirée
michel

butterfly88 · 5 Août 2008

Re : Envoi mail

Whaaa merci tu es trop fort, j'arrivais pas à trouver sur google avec cette methode !

Et par hasard tu sais pas si c'est possible de mettre l'emetteur (From) parce que ".From" il n'est pas reconnu, il y a peut être autre chose ?

Merci

Effectuez une recherche sur Excel Downloads...

Envoi mail

butterfly88

Guest

butterfly88

Guest

MichelXld

XLDnaute Barbatruc

butterfly88

Guest

MichelXld

XLDnaute Barbatruc

butterfly88

Guest

butterfly88

Guest

MichelXld

XLDnaute Barbatruc

butterfly88

Guest

Discussions similaires

Nous accordons de l'importance à votre vie privée