Discussion :

[casavba]

Bonsoir à tous,

Est-il possible d'envoyer depuis excel un mail sans passer par outlook?

Merci

[Invité]

Bonjour

Peut-être que ce code de la FAQ Access pourrait t'aiguiller : http://access.developpez.com/faq/?pa...ailPieceAttach

Starec

[SilkyRoad]

bonsoir

et dans la FAQ Excel ... ;o)

http://excel.developpez.com/faq/inde...ailCDOexchange


bonne soirée
michel

[casavba]

bonsoir

et dans la FAQ Excel ... ;o)

http://excel.developpez.com/faq/inde...ailCDOexchange


bonne soirée
michel

J'ai testé le code mais j'ai un message d'erreur: (voir image)
et la ligne ".Send" est surligné en jaune

Merci

http://support.microsoft.com/kb/322338/fr

[casavba]

J'ai trouvé un morceau de code sur le net qui a trait à VBA ACCess mais là aussi ça bug

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
31
Public Function EnvoiMail(De As String, From As String, Sujet As String, Texte As String)
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds
Set Flds = iConf.Fields
 
With Flds
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  '.Item(cdoSMTPServerName) = "192.168.1.2" ' Si vous utilisez la librairie CDO pour exchange
  .Item(cdoSMTPServerName) = "smtp.mail.yahoo.fr"    ' Si vous utilisez la librairie CDO pour Windows 2000
  .Item(cdoSMTPConnectionTimeout) = 10
  .Item(cdoSMTPAuthenticate) = cdoBasic
  .Item(cdoSendUserName) = "rrrrr@yahoo.fr"
  .Item(cdoSendPassword) = "123456"
  .Item(cdoURLProxyServer) = "server:80"
  .Item(cdoURLProxyBypass) = "<local>"
  .Item(cdoURLGetLatestVersion) = True
  .Update
End With
 
With iMsg
  Set .Configuration = iConf
      .To = De
      .From = From
      .Subject = Sujet
      .TextBody = Texte
      '.AddAttachment "C:\un fichier quelconque"
      .Send
End With
 
End Function

[Invité]

Bonjour

Juste une question : Pourquoi ne veux-tu pas passer par Outlook? De qu'elle messagerie disposes-tu ?

Starec