Besten Dank für die schnellen Antworten.
Leider bin ich mit deinen Vorschlägen noch sehr überfordert. Trotzdem beleibe ich hartnäckig, denn ich möchte dazulernen und verstehen was ich mache bzw. was ich falsch mache.
Folgender Code hat bisher das verschicken der Email geregelt:
Private Sub MailSenden_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MailSenden.Click
'deklariert die HTML-Variablen
Dim ObererTeil, Zeile1, Zeile2, Zeile3, Zeile4, Zeile5, Zeile6, Zeile7, _
Zeile8, UntererTeil, Bestaetigung As String
Dim olApp As Object
Dim oItem As Object
'füllt die HTML-Variablen (habe diesen teil für euch zurechtgestutzt
' da es nicht relevant ist )
ObererTeil = ...
Zeile1 = ...
Zeile2 = ...
Zeile3 = ...
Zeile4 = ...
Zeile5 = ...
Zeile6 = ...
Zeile7 = ...
Zeile8 = ...
UntererTeil = ...
Bestaetigung = ...
olApp = CreateObject("Outlook.Application")
oItem = olApp.CreateItem(0)
With oItem
.Subject = "BS: " & TextBox2.Text & "; " & TextBox3.Text
.To = "Praktikantedv@wfbrheinsieg.de"
.HTMLBody = ObererTeil & Zeile1 & Zeile2 & Zeile3 & Zeile4 & Zeile5 _
& Zeile6 & Zeile7 & Zeile8 & UntererTeil & Bestaetigung
.send()
End With
MsgBox("E-Mail wurde erfolgreich an die Finanzbuchhaltung versendet.")
End
End SubDas ganze funktioniert wunderbar vorrausgesetzt man ist bei Outlook angemeldet.
Nun habe ich versucht den Code Nach deinem Vorschlag anzupassen. Leider ohne wirklich zu wissen was ich da mache:
Private Sub MailSenden_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MailSenden.Click
'deklariert die HTML-Variablen
Dim ObererTeil, Zeile1, Zeile2, Zeile3, Zeile4, Zeile5, Zeile6, Zeile7, _
Zeile8, UntererTeil, Bestaetigung As String
Dim olApp = CreateObject("Outlook.Application")
Dim mi = olApp.CreateItem(0)
Dim oItem As Object
'füllt die HTML-Variablen (habe diesen teil für euch zurechtgestutzt da
' es nicht relevant ist )
ObererTeil = ...
Zeile1 = ...
Zeile2 = ...
Zeile3 = ...
Zeile4 = ...
Zeile5 = ...
Zeile6 = ...
Zeile7 = ...
Zeile8 = ...
UntererTeil = ...
Bestaetigung = ...
olApp = CreateObject("Outlook.Application")
oItem = olApp.CreateItem(0)
With oItem
mi.Subject = "BS: " & TextBox2.Text & "; " & TextBox3.Text
mi.To = "Praktikantedv@wfbrheinsieg.de"
mi.HTMLBody = ObererTeil & Zeile1 & Zeile2 & Zeile3 & Zeile4 & _
Zeile5 & Zeile6 & Zeile7 & Zeile8 & UntererTeil & Bestaetigung
mi.send()
End With
MsgBox("E-Mail wurde erfolgreich an die Finanzbuchhaltung versendet.")
End
End SubDas Ergebnis ist leider das selbe: Es Funktioniert nur wenn outlook ausgeführt wird.
Ich weiss ich sollte erstmal bei 0 anfangen und VB von Grund auf erlernen aber zumindest dieses Projekt möchte ich gerne fertigstelen. Ich hoffe also ihr seid noch etwas geduldig mit mir.
mit bestem Dank,
John Bubenzer
PS:ich arbeite übrigens mit Microsoft Visual Basic 2010falls das eine Rolle spielt. |
Forenübersicht Suchen Forumsregeln
Vol.6
Sie sind aktuell nicht angemeldet.
