Salut Calititi,
moi, je suis parti de ça pour mes scripts: rete à définir le texte du message, et le chemin d'accès de ta piece jointe
ça peut te servir de bonne base pour créer tes liens avec outlook 🙂
++
@nono
option explicit
sub envoi_mail()
dim sAddress, sSubject, sBody, sAttachment
sAddress = "president@groland.fr"
sSubject = "Mon sujet"
sBody = "Voici le corps du texte"
sAttachment = "" 'à définir si nécessaire
Email sAddress,sSubject,sBody,sAttachment
end sub
Sub Email (sAddress,sSubject,sBody,sAttachment)
dim OutLookApp, MailItem, Recipient
Set OutLookApp = CreateObject("Outlook.Application") 'création du lien avec outlook
Set MailItem = OutLookApp.CreateItem(0) 'création de l'objet message
Set Recipient = MailItem.Recipients.Add(cstr(sAddress)) 'création du destinataire
If Not Recipient.Resolve Then 'contrôle de la validité de l'adresse
MsgBox "l'adresse entrée n'est pas une adresse valide !"
Exit Sub
End If
MailItem.Subject = cstr(sSubject)
MailItem.Body = cstr(sBody)
if sAttachment <>"" then
MailItem.Attachments.add cstr(sAttachment)
end if
MailItem.Send 'envoi du mail
Set Attachment = Nothing
Set Recipient = Nothing
Set OutLookApp = Nothing
end sub
