Mercredi 19 Juin 2019  
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 : 6
Membres en ligne : 0

 pirobert 5 semaines
 jcgdisle 30 semaines
 EMERGENCY 50 semaines
 beaulieu 62 semaines
 callaghi 66 semaines
 Charlie76 71 semaines
 joscopp 82 semaines
 JièL 82 semaines
 julbast 83 semaines
 zorro71 107 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 737
En ligne :6
Max. en ligne:312
Max. / jour:66 529
Total hier:5 070
Total ce mois:117 209
Total visites:21 991 433
Moyenne/jour:5 681

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 34172 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
R15300 [VBA] Enregistrer dans un dossier après envoi, R11040 Restaurer ses règles de gestion des messages, R08070 Réparer / remettre en état Outlook ou le PST (6 solutions à appliquer dans l'ordre), R01020 Changer rapidement la taille des caractères, R15600 [VBA] ajouter un dossier contact et le définir en tant que carnet d'adresses, R08100 Impossible d'ouvrir une pièce jointe, R06090 Appliquer une règle aux messages existants, R12100 Partager son calendrier, R00120 Gérer TOUS vos comptes Mails avec Mail2Web, R08050 Le clavier passe en QWERTY lors de la saisie de RDV ou de tâches, R99040 Drag and Drop, R10010 Sauvegarder TOUT Office 2003, R09010 Compléter la saisie d’un destinataire (saisie auto ou saisie semi auto), R08040 Outlook ne mémorise pas le mot de passe des comptes, R08041 Outlook 2002 (2000 ?) ne mémorise pas le mot de passe des comptes sous Vista

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 [/\]