Correction de code svp

[Seb67210]

Bonjour,

1) Qui pourrait me modifier ce code afin qu'il utilise Outlook ?
j'ai tenté mais cela ne fonctionne pas...hihi

2) Je souhaiterais que l'email parte tout seul sans forcement cliquer sur le bouton "envoyer" de Outlook

Un grand MERCI d'avance.


---------------------------------------

Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String

Adresse = "moceks@hager.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")

''''Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''

''''Shell ""C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE
" & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''



Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
SendKeys "%I" & "p" & nomfich & "~"
'Signification des caractères après "SendKeys":
'* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
'* ~ = Validation. (~=Entrée)
'* %S = Envoyer.

End Sub

 

[tototiti2008]

Re : Correction de code svp

Bonjour Seb,

Pourquoi utiliser Outlook ?
Outlook vérifie si un code le force à envoyer des e-mail et il y aura des avertissements de sécurité à chaque mail envoyé, avertissements que l'on ne peut pas désactiver.

 

[Seb67210]

Re : Correction de code svp

Quelle alternative me proposes tu ? stp

 

[MJ13]

Re : Correction de code svp

Bonjour Seb, Tototiti

e-mail et il y aura des avertissements de sécurité à chaque mail envoyé, avertissements que l'on ne peut pas désactiver

Quand même Toto, il y a plusieurs solutions pour ne pas avoir le message d'alerte sous Outlook (aller retourne près du poêle ).

Voir ici:

https://www.excel-downloads.com/threads/envoi-mail-par-macro-excel.141363/

 

[Seb67210]

Re : Correction de code svp

OK merci !
Par contre je n'arrive pas à récupérer les fichiers exemples
Et toi les liens fonctionnent svp?

 

[Seb67210]

Re : Correction de code svp

Pourrais tu m'envoyer le fichier exemple à l'adresse suivante svp

Moceks@hager.fr

? Merci d'avance

J'ai réellement besoin de cette fonction

 

[MJ13]

Re : Correction de code svp

Re

Sinon voir ici:

https://www.excel-downloads.com/threads/envoie-mail-automatique.108921/

Maintenant je te laisse continuer .

 

[Seb67210]

Re : Correction de code svp

idem je n'y arrive pas....

Sinon question:
Le code suivant fonctionne mais comment supprimer le message de sécurité de Outlook ?


Sub LaTotale()

' #######################################
' # 2. Envoi de l'E-Mail avec Outlook : #
' #######################################

' Initialisation :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)

' Préparation du message :
MonMessage.to = "moceks@hager.fr"

' Récupération de la chaîne d'E-Mails Access :
MonMessage.bcc = ListeComplete
MonMessage.Subject = "Promotions pour les vacances"
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Profitez de nos dernières actions pour la Tunisie"
MonMessage.body = Corps

' C'est parti :
MonMessage.send

' Fermeture de la session Outlook :
Set MonOutlook = Nothing
End Sub

 

[tototiti2008]

Re : Correction de code svp

Bonjour Michel,
Re,

Quand même Toto, il y a plusieurs solutions pour ne pas avoir le message d'alerte sous Outlook (aller retourne près du poêle ).

Je ne savais pas, à par CDO je n'avais pas entendu parler d'alternatives (Il faut dire que je n'ai pas Outlook, donc...)

 

[Seb67210]

Re : Correction de code svp

J'arrive à la meme conclusion que toi...mais quelle âme charitable va me fournir le code tout fait en CDO ??? là est mon soucis , malheureusement.

Une personne à t'elle le code pour envoyer des mails en automatique version CDO ?svp

 

[Seb67210]

Re : Correction de code svp

une idée? svp

 

[tototiti2008]

Re : Correction de code svp

Re,

Tu as essayé avec l'outil de Recherche ?
tu tapes CDO*
Je suis sûr que tu vas trouver des pistes

Moi je ne l'ai jamais utilisé, alors...

 

[Seb67210]

Re : Correction de code svp

je vais essayer...

 

[Seb67210]

Re : Correction de code svp

il y a des choses mais le code ne fonctionne pas, je galère comme tout le monde peut le voir....

 

[Seb67210]

Re : Correction de code svp

Dernier code testé :


-------------------------------------------
Sub EvoiMailSansMessageConfirmation()
'testé avec XP
Dim iMsg As Object, iConf As Object
Dim iBP As Object

Const cdoSendUsingPickup = 1

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iMsg
Set .Configuration = iConf
.To = "moceks@hager.fr"
.Subject = "Message du forum Xld"
.HTMLBody = "Ceci est un essai..."
'Set iBP = iMsg.AddAttachment("C:\lefichier.txt")
'.Send
End With

End Sub
--------------------------------------------
celui-ci, le .send ne fonctionne pas...