Vendredi 28 Juillet 2017  
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 : 2
Membres en ligne : 0

 EMERGENCY 2 jours
 callaghi 1 semaine
 JièL 4 semaines
 zorro71 8 semaines
 Alphator 26 semaines
 ande 32 semaines
 Oliv 34 semaines
 cubitus 38 semaines
 angel 48 semaines
 Quartzkyte 57 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:624
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:5 053
Total ce mois:149 134
Total visites:17 972 752
Moyenne/jour:5 654

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 31629 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
R00080 Ajouter le moteur de recherche de la FAQ à IE7, R99050 Impression d'écran, R07100 Exporter / Importer une liste d'expéditeurs indésirables, R14030 Ajouter / Supprimer un dossier au favoris, R05060 Créer un « style » d'impression, R17070 VSTO et les formulaires d'Outlook 2007, R15450 [VBA] Supprimer automatiquement les éléments de + de x jours dans un dossier., R08060 Recréer un profil, R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R99210 Y'a pas que les ordis qui rament, R10100 Archivage manuel / Sauvegarde manuelle d’éléments vers un .PST, R17002 Objets d'un formulaire, R01180 Remplacer la page d’accueil « Outlook Aujourd’hui » (toutes versions), R14050 Créer des raccourcis vers des dossiers , R09030 Activer / Désactiver la suggestion des adresses de messagerie (saisie auto ou saisie semi auto)

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é
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]