| |
VB.NET - Ein- und UmsteigerOutlook mit oft-Datei öffnen | | | Autor: Chrischi | Datum: 03.03.22 06:57 |
| Guten Morgen, ich versuche verzweifelt es so hinzubekommen, dass Outlook sich öffnet und eine neue Mail aus einer oft-Datei öffnet. Aber bislang wird immer nur eine leere (Standardmail) geöffnet. Mailadresse ,Betreff und Text wird übergeben aber leider nicht in die zu öffnende oft-Datei.
Kann jemand helfen?
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Outlook
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Location = New System.Drawing.Point(199, 107)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(195, 94)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Outlook"
Me.Button1.UseVisualStyleBackColor = False
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Highlight
Me.ClientSize = New System.Drawing.Size(599, 313)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim myOlApp As New Outlook.Application
' myInspectors = myOlApp.Inspectors
myOlApp = CreateObject("Outlook.Application")
' myNameSpace = myOlApp.GetNamespace("MAPI")
' myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
' myFolder.Display
End Sub
Friend WithEvents Button1 As Button
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
Button1.Click
Dim myOlApp As New Outlook.Application
myOlApp = CreateObject("Outlook.Application")
Dim p() As Process
p = Process.GetProcessesByName("Outlook.exe")
If p.Count > 0 Then
Else
Process.Start("Outlook.exe")
End If
CreateMailItem()
End Sub
Sub CreateMailItem()
Dim MyItem As Outlook.MailItem
Dim myOLApp As Microsoft.Office.Interop.Outlook.Application
Dim olMAPI As Microsoft.Office.Interop.Outlook.NameSpace
Dim olFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
' Dim OLMail As Microsoft.Office.Interop.Outlook.MailItem
myOLApp = CType(CreateObject("Outlook.Application"), _
Microsoft.Office.Interop.Outlook.Application)
MyItem = myOLApp.CreateItemFromTemplate( _
"C:\HoRes8\Hotel\briefe\HoResMail.oft")
olMAPI = myOLApp.GetNamespace("MAPI")
olFolder = olMAPI.GetDefaultFolder( _
Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderOutbox)
MyItem = CType(olFolder.Items.Add, _
Microsoft.Office.Interop.Outlook.MailItem)
With MyItem
.Subject = "Hallo Welt"
.To = "Test@Test.de"
.Body = "Ich bin die Nachricht."
.Importance = _
Microsoft.Office.Interop.Outlook.OlImportance.olImportanceLow
MyItem.Display(True)
End With
'OLMail.Display(False)
'// wenn sich die Mail in Outlook öffnen soll muss .Display(True) sein
End Sub
End Class | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|