Discussion :

[momolamoto]

Bonjour,

J'ai une macro sur excel qui me permet d'envoyer des mails avec pièces jointes par outlook. Cela fontionne le souci c'est qu'avant d'envoyer le mail il y a message d'outlook qui me demande l'autorisation à chaque mail(Je dois cliquer ok à chaque mail. J'envoi à vingtaine de groupes (composer de 10 personnes chacunes)des mails et je trouve cela contraignant.

Est ce qqn aurait la solution pour contourner ce message et que chaque mail s'expédie sans que je dois valider.....extrait de mon code qui permet l'envoi:

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
32
33
34
35
36
37
38
Function EnvoiMailSimple()
  ' Création d'une variable de type E-Mail :
  Dim Email As Outlook.Application
  Dim EmailMsg As Outlook.MailItem
  Dim Dest As Outlook.Recipient
  'Dim col As Variant
 
 
.......
 
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
 
ChDir ("D:\Documents and Settings\MELOUARIACHI\Mes documents\reporting\")
chem = CurDir
chemin = chem & "\" & Nfichier
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
' Création de l'e-mail : Titre, Corps du message, destinataire
For i = 2 To li
 Set Dest = EmailMsg.Recipients.Add(Cells(i, col).Value)
Next
 
 EmailMsg.Subject = domaine & ":  Demandes enregistrées dans Remedy RS3 au " & datereport
 EmailMsg.Body = "Madame, Monsieur " & Chr$(13) & Chr$(13) & "Je vous prie de trouver ci-joint la liste des demandes enregistrées par l'ECU au " & datereport & ". Cela vous permettra de faire un point sur les tickets qui sont affectés à votre domaine." & Chr$(13) & "Cdt Groupe ECU"
 EmailMsg.Attachments.Add chemin
 EmailMsg.CC = "bruno.beaulieu@atosorigin.com ; <a href="mailto:eddie.lechevretel@atosorigin.com">eddie.lechevretel@atosorigin.com</a> "
 
' Placement de l'e-mail dans la boîte d'envoi :
 EmailMsg.Send
 
 
 'EmailMsg.Attachments
Set EmailMsg = Nothing
Set Email = Nothing
End Function

En vous remerciant d'avance

[SilkyRoad]

bonsoir

j'espere que ce lien pourra t'aider

http://www.vbcode.com/Asp/showsn.asp?theID=12440


bonne soiree
michel

[momolamoto]

Bonjour,

J'ai trouvé une petit application qui s'appelle "YesClick" valide tous les messages oui ou non d'outlook ceux qui permet d'aller boire un café le temps que l'envoi des mail est généré.

Merci

[richie_leffe]

je confirme le lien de SilkyRoad qui contient le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim strPath$, OutlookItem, ColAttach
Const olByValue = 1
    Set OutlookItem = Application.CreateItem(0)
    OutlookItem.To = "youremail@email.com"
    OutlookItem.Subject = "This will work!"
    OutlookItem.Body = "This works great, no warning message from Outlook!"
    Set ColAttach = OutlookItem.Attachments
    strPath = App.Path & "\simple.txt"
    ColAttach.Add strPath, olByValue, 1, "File Attachment"
    OutlookItem.Display
    SendKeys "%{s}", True

cela fonctionne impec !