Mardi 29 Septembre 2020  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 3
Membres en ligne : 0

 JièL 22 semaines
 manucau 24 semaines
 Manu-pb 25 semaines
 Oliv 30 semaines
 pirobert 71 semaines
 jcgdisle 96 semaines
 EMERGENCY 117 semaines
 beaulieu 129 semaines
 callaghi 133 semaines
 Charlie76 138 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:476
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:2 212
Total ce mois:96 029
Total visites:24 089 077
Moyenne/jour:5 553

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi

Je voudrais supprimer la demande de confirmation d'envoi de Outlook qui me dit : "Un programme tente d'envoyer ... en votre nom".


mon application VBA pour Excel envoie automatiquement des E-mails à des collègues.
Je voudrais supprimer la demande de confirmation d'envoi de Outlook qui me dit : "Un programme tente d'envoyer ... en votre nom".
Ceci afin de faire gagner du temps à l'utilisateur de mon programme. Est-ce possible et si oui, comment ?

sijmp


Bonjour,
Plusieurs méthodes sont possibles :
Une des solutions est de demander à Outlook d'envoyer le mail préparé par l'AUTRE PROGRAMME.
Dans EXCEL ou Access ou Word

Télécharger la source  GeSHi: Visual Basic
  1. Sub test_early_binding_SANS_secu()
  2. 'dans EXCEL ou Access ou Word
  3. Dim oApp As Outlook.Application
  4. Set oApp = Outlook.Application
  5. Dim monmail As MailItem
  6. Set monmail = oApp.CreateItem(olMailItem)
  7. monmail.Subject = "test ss message de secu"
  8. monmail.To = "toto"&Chr(64)&"montest.fr"
  9. monmail.Save
  10. Dim strID As String
  11. strID = monmail.EntryID
  12. Call oApp.send_Monmail(strID)
  13. Set monmail = Nothing
  14. Set oApp = Nothing
  15. End Sub
Analysé en 0.009 secondes, avec GeSHi 1.0.7.20



Dans OUTLOOK ThisOutlookSession

Télécharger la source  GeSHi: Visual Basic
  1. Sub send_Monmail(StrID As String)
  2. Dim monmail
  3. Set monmail = Application.GetNamespace("MAPI").GetItemFromID(StrID)
  4. monmail.Send
  5. End Sub
Analysé en 0.003 secondes, avec GeSHi 1.0.7.20



Sinon tu peux utiliser CDO pour créer et envoyer tes mails ( Microsoft CDO for Windows 2000 Library) car tu n'auras pas de message de sécurité.

Télécharger la source  GeSHi: Visual Basic
  1. Sub MailAvecCDO2000()
  2. '---------------------------------------------------------------------------------------
  3. ' Procedure : MailAvecCDO2000
  4. ' Author : Oliv'
  5. ' Date : 26/11/2008
  6. ' Purpose : envoi un mail sans message de sécurité en utilisant
  7. ' Déclaration tardive ("Late Binding")
  8. ' Microsoft CDO for Windows 2000 Library
  9. '---------------------------------------------------------------------------------------
  10. Dim Cdo_Message As Object
  11. Set Cdo_Message = CreateObject("CDO.Message")
  12. Const CdoTo = 1
  13. Const CdoCc = 2
  14. Const CdoBcc = 3
  15.  
  16. Set Cdo_Message.Configuration = GetSMTPServerConfig()
  17. With Cdo_Message
  18. .To = "toto"&Chr(64)&"toto.fr"
  19. .From = "moi"&Chr(64)&"chezmoi.fr"
  20. .subject = "Le Sujet"
  21. .TextBody = "Le Corps du message"
  22. '.AddAttachment ("c:cheminfichier.ext")
  23. .Cc = "John"&Chr(64)&"Doe.net;titi"&Chr(64)&"toto.fr"
  24. .Send
  25. End With
  26. Set Cdo_Message = Nothing
  27. End Sub
  28.  
  29. Function GetSMTPServerConfig() As Object
  30. ' Microsoft CDO for Windows 2000 Library
  31. Const cdoSendUsingPickup = 1
  32. Const cdoSendUsingPort = 2
  33. Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
  34. Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
  35. Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
  36.  
  37. Dim Cdo_Config As Object 'New CDO.Configuration
  38. Set Cdo_Config = CreateObject("CDO.Configuration")
  39. Dim Cdo_Fields As Object
  40. Set Cdo_Fields = Cdo_Config.Fields
  41.  
  42. With Cdo_Fields
  43. .Item(cdoSendUsingMethod) = cdoSendUsingPort
  44. .Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI
  45. .Item(cdoSMTPServerPort) = 25
  46. .Update
  47. End With
  48.  
  49. Set GetSMTPServerConfig = Cdo_Config
  50. Set Cdo_Config = Nothing
  51. Set Cdo_Fields = Nothing
  52.  
  53. End Function
Analysé en 0.029 secondes, avec GeSHi 1.0.7.20




D'autres solutions existent
-utiliser MAPI (Microsoft CDO 1.21 Library) Pour Outlook 2007 il faut le télécharger là :http://www.microsoft.com/downloads/details.aspx?familyid=2714320d-c997-4de1-986f-24f081725d36&displaylang=en
-REDEMPTION http://www.dimastr.com/redemption/
-utiliser un programme comme clickyes (cela ouvre cependant une brèche dans ta sécurité)

tu peux aussi utiliser avec Excel SENDKEYS (merci à Babybell pour cette astuce)

Télécharger la source  GeSHi: Visual Basic
  1. MonMessage.Display
  2. SendKeys "^{ENTER}"
Analysé en 0.001 secondes, avec GeSHi 1.0.7.20




ps: Chr(64)=@


Publié par Oliv le mardi 17 mars 2009 17:27 0 Commentaires 35112 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R15280 [VBA] Exporter un mail et l'ouvrir dans IE avec ses images Q15000 Macros - VBA
R15930 [VBA] Eliminer les doublons Q15000 Macros - VBA
R15450 [VBA] Supprimer automatiquement les éléments de + de x jours dans un dossier. Q15000 Macros - VBA
Nuage de tags
R12010 Modifier l'affichage du calendrier, R01040 Laisser une copie de message sur le serveur, R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception, R15600 [VBA] ajouter un dossier contact et le définir en tant que carnet d'adresses, R99010 Marche je te dis, marche..., R16060 Importer les contacts de Windows Live Mail dans Outlook, R10070 Sauvegarder les fichiers de paramètres d'Outlook, R01130 Choisir l'éditeur de message, R18010 Synchroniser un PDA avec un compte Exchange, R17070 VSTO et les formulaires d'Outlook 2007, R16010 Importer les messages d'Outlook Express, R03050 Définir le papier à lettres par défaut, R04080 Changer le dossier d'enregistrement par défaut des pièces jointes, R09190 Trier les destinataires dans le carnet d'adresses (version 2002/2003), R13040 Définir une tâche répétitive

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]