Comment ouvrir Outlook “Nouveau message” de la fenêtre de VB.NET

J'ai un scénario dans lequel l'utilisateur peut effectuer une sélection à partir d'une grille (après avoir téléchargé les fichiers sur le dossier local) et lorsque l'utilisateur appuyez sur la touche "envoyer", l'application devrait s'ouvrir Outlook "Nouveau message" de la fenêtre après avoir sélectionné les fichiers en tant que pièces jointes (sélectionné par l'utilisateur à partir de la grille).

Toute aide sera appréciée.

OriginalL'auteur Adnan Badar | 2010-12-27

  1. 6

    Si vous voulez spécifiquement voulez un message outlook et que vous souhaitez plus d'options pour envoyer (le corps du texte, pièces jointes, CCI, etc.):

    Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
    Dim omsg As Object
    omsg = Outl.CreateItem(0) '=Outlook.OlItemType.olMailItem'
    'set message properties here...'
    omsg.Display(True) 'will display message to user
End If
    Chers MarcelDevG, je vous Remercie beaucoup, cette exactement ce que je veux et sa fonctionne très bien, seulement anormal de la chose, c'est maintenant que je vais avoir 2 fenêtres de message (ayant les mêmes paramètres, l'adresse, le corps du message), une idée de ce qui se passe. MERCI ENCORE!
    J'ai abordé cette question en n'affichant pas comme le Modal. 'omsg.Affichage(Faux) Merci encore!
    Je suis un peu gourmand maintenant 🙂 dans le nouveau message de fenêtre, je ne suis pas d'obtenir la signature par défaut de l'utilisateur, comment ce problème sera résolu?
    Vous devriez vraiment ouvrir une nouvelle question, et à rechercher d'abord une réponse. C'est ce que j'ai trouvé: outlookcode.com/codedetail.aspx?id=615 C'est VBA, mais vous devriez être bien de le traduire.

    OriginalL'auteur MarcelDevG

  2. 12
    Imports System.Diagnostics

Process.Start(String.Format("mailto:{0}", address))

' set all possible parameters: '

Process.Start(String.Format("mailto:{0}?subject={1}&cc={2}&bcc={3}&body={4}", address, subject, cc, bcc, body))

' also escape spaces: '

Process.Start(String.Format("mailto:{0}?subject=\"{1}\"&cc={2}&bcc={3}&body=\"{4}\"", address, subject, cc, bcc, body))

    Utiliser ensuite pour inclure de nouveaux sauts de ligne:

    body = body.Replace(Environment.NewLine ,"%0A")

    va ouvrir le client de messagerie par défaut avec la composition du nouveau message boîte de dialogue.

    Si Outlook est configuré comme client par défaut, il sera ouvert.

    De toute façon, n'ouvrez jamais explicitement non-client par défaut (e-mail, navigateur, etc) - qui rompt les clients et les rend haine vous.

    Et comment voulez-vous ajouter des pièces jointes?
    Si vous avez besoin d'envoyer un e-mail avec pièces jointes, envoyez un courriel du programme: SmtpClient.Envoyer(MailMessage)
    Cela ne fonctionnera pas si la chaîne est plus longue que autour de 2000 caractères ou alors en raison d'une limitation d'Internet Explorer sur de longues url.
    Je me demandais pourquoi IE limitations des questions ici?
    Oui, c'est étrange. J'ai une application avec une erreur interne reporter et les traces de la pile obtenir tronquée. C'est vraiment une source de limitation. J'ai lu quelque part que IE est le coupable ici. Ne me demandez pas pourquoi.

    OriginalL'auteur abatishchev

  3. 4
    Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
    Dim omsg As Object
    omsg = Outl.CreateItem(0)
    omsg.To = "[email protected]"
    omsg.bcc = "[email protected]"
    omsg.subject = "Hello"
    omsg.body = "godmorning"
    omsg.Attachments.Add("c:\HP\opcserver.txt")
    'set message properties here...'
    omsg.Display(True) 'will display message to user

    OriginalL'auteur yusuf izzettin