| |
VB.NET - Ein- und UmsteigerE-Mail mit mehreren Dateianhängen - Über Standardmailclient mit vorschau? | | | Autor: Bismosa | Datum: 11.03.11 15:40 |
| Hallo!
Ich möchte aus meiner Anwendung heraus eine E-Mail generieren. Diese Mail soll bereits einen Empänger, einen Betreff und die Nachricht enthalten. Es sollen auch gleich mehrere Anhänge angefügt werden.
Die Mail soll dann aber nicht gleich verschickt werden, sondern von dem Standard-Mailclient erst angezeigt werden.
Für Outlook habe ich diese Variante erfolgreich getestet:
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMailItem As Object
objOutlook = CreateObject("Outlook.Application")
objNameSpace = objOutlook.GetNamespace("MAPI")
Call objNameSpace.Logon()
objMailItem = objOutlook.CreateItem(0)
objMailItem.To = EAdresse
objMailItem.Subject = EBetreff.Replace("(Liste)", liste) '.Replace(
' "(ListeVollständig)", ListeVollständig)
objMailItem.Body = ENachricht.Replace("(Liste)", liste).Replace("(" & _
"ListeVollständig)", ListeVollständig)
For i As Integer = 0 To Anhänge.Count - 1
Try
objMailItem.Attachments.Add(Anhänge(i))
Catch ex As Exception
End Try
Next
Call objMailItem.Display()
Call objNameSpace.Logoff() Soweit so gut. Nun ist nicht überall Outlook installiert. In der Firma haben wir Tobit bzw. David Info Center. Daher suche ich nach einer Möglichkeit, hier auch die Mails zu generieren.
Mit System.Net.Mail habe ich eine zweite Variante gefunden, die alleridngs auch nur bei Outlook funktioniert:
Dim objMail = New MailMessage()
With objMail
.To.Add(EAdresse)
.Subject = EBetreff.Replace("(Liste)", liste) '.Replace("(" & _
"ListeVollständig)", ListeVollständig)
.Body = ENachricht.Replace("(Liste)", liste).Replace("(" & _
"ListeVollständig)", ListeVollständig)
End With
For i As Integer = 0 To Anhänge.Count - 1
Try
objMail.Attachments.Add(New Attachment(Anhänge(i)))
Catch ex As Exception
End Try
Next Bei Tobit passiert hier rein gar nichts.
Ein Sendto scheint auch nicht zu funktionieren, da Mailanhänge nicht mit übergeben werden.
Jeztt habe ich gelesen, dass dies wohl mit MAPI gehen soll. Unter VB2010 finde ich jedoch nichts in den Verweisen....???
Eine weitere Variante, die ich gesehen habe, ist das Versenden mittels SMTP. Dafür brauche ich aber Zugangsdaten (die ich z.B. in der Firma nicht bekomme) und eine Vorschau ist auch m.E. nicht möglich?
Wie machen das die Office-Programme? In Word klappt "Per Mail senden" auch problemlos mit Tobit. Auch im Explorer "Senden an E-Mail ampfänger" klappt....und der eingestellt Mailclient öffnet sich.
Entweder benutze ich seit Stunden (Tagen) die falschen Suchbegriffe oder habe irgendwas falsch verstanden?
Ich hoffe ihr könnt mir einen Tip geben!
Gruß
Bismosa | |
| 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! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|