envoyer d'un fichier par email sans outlook

[nrdz83]

Bonsoir à tous,
J'utilise ce code qui fonctionne en utilisant outlook.
Je cherche à adapter ce code pour un copain mais qui n'a pas outlook.

Est il possible de modifier ce code afin qu'il utilise son programme de messagerie installé sur son pc ?

Par aavnce merci à tous;
Amitiés

Sub envoi_Feuille_par_email()
' Avant de lancer cette macro : Dans l'éditeur VBA, faire
' Menu / Outils / Références... /
' et cocher "Microsoft Outlook 11.0 Object Library"

If MsgBox("Êtes vous sur de vouloir envoyer le compte rendu journalier par email ?", vbQuestion + vbYesNo, "Quelle classe le BEAUF ...") = vbYes Then

Dim répertoireAppli As String, olapp As New Outlook.Application, msg As MailItem, s As String
    Application.ScreenUpdating = False
    répertoireAppli = ActiveWorkbook.Path
    Sheets("Lundi").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireAppli & "\CR journalier email.xls"
    Application.DisplayAlerts = True
    ActiveWindow.Close
    Application.ScreenUpdating = True
    Sheets("Destinataires").Activate
    Range("A11").Select
    Do While Not IsEmpty(ActiveCell)
        s = s & ActiveCell.Value & "; "
        ActiveCell.Offset(1, 0).Select
    Loop
    s = Left$(s, Len(s) - 2)
    Set msg = olapp.CreateItem(olMailItem) ' Envoi par mail
    msg.To = s
    msg.Subject = Range("A2").Value
    msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
    msg.Attachments.Add répertoireAppli & "\Plongée du jour.xls"
    msg.Send
    UserForm2.Hide
    
End If
End Sub
Sub lit_messagerie()
  Dim olapp As Outlook.Application   'penser à Outils/Références Outlook
  Dim olns As Outlook.NameSpace
  Dim olmf As Outlook.MAPIFolder
  Dim obj As Object
  Set olapp = New Outlook.Application
  Set olns = olapp.GetNamespace("mapi")
  Set olmf = olns.GetDefaultFolder(olFolderInbox)
  For Each obj In olmf.Items
   MsgBox obj.Subject
  Next
End Sub

 

[Staple1600]

Re : envoyer d'un fichier par email sans outlook

Bonsoir

Voir la méthode CDO

Il existe de nombreux fils sur le forum à ce sujet.
(qui souvent t'inviteront à aller faire un tour du côté de chez Ron)

Et heureusement, il existe un moteur de recherche performant sur ce forum
(mais tu dois le savoir, et depuis juillet 2007, tu as le temps de tâter la bête )

 

[kjin]

Re : envoyer d'un fichier par email sans outlook

Bonsoir, salut staple,
Ron's CDO
A+
kjin

 

[Staple1600]

Re : envoyer d'un fichier par email sans outlook

Bonsoir sieur kjin ,)

C'est pas du jeu.
Mon énigme digne d'un koh-lanta de la Cellule tombe à l'eau

(qui souvent t'inviteront à aller faire un tour du côté de chez Ron)

Si toi aussi, tu mâches la tache que j'espérais dévolue à nrdz, mes repères s'écroulent, et j'ai l'âme xldienne en peine.

 

[kjin]

Re : envoyer d'un fichier par email sans outlook

Re,

Si toi aussi, tu mâches la tache que j'espérais dévolue à nrdz, mes repères s'écroulent, et j'ai l'âme xldienne en peine

A la différence près que j'ai souvent croisé nrdz83 sur le forum
Maintenant, je t'avoue qu'un grand raz le bol s'est installé depuis qq temps et que je songe à jeter l'éponge définitivement...
A+
kjin

 

[nrdz83]

Re : envoyer d'un fichier par email sans outlook

Bonsoir et merci pour vos lumières, bon week end à vous tous amitiés