Hallo
Ich hab mal wieder eine Frage...
Ich möchte gern eine e-Mail mit VB versenden, direkt aus dem Programm heraus, ohne vorher noch bei Outlook zu bestätigen etc...
Die sachen, die ich über google gefunden habe haben bisher keinen erfolg gebracht...
Ich wäre froh, wenn mir jemand eine gute möglichkeit hätte...
thx

bye M4V3R1CK_14

Falls du VB.NET meinst, ist es recht einfach. Hier ist ein Beispiel:

E-Mail versenden

Falls du nicht .NET meinst, also VB6 oder VBA in Access, dann melde dich nochmals, ich habe den Code dazu zur Zeit nicht gerade zur Hand, ist nur unwesentlich komplizierter und läuft in Access, VB.NET und mit 99% Wahrscheinlichkeit auch in VB6.

gruss
heinz

ja, ich bräuchte den code für VB6... sry für die ungenauigkeit... hab ich vergessen zu erwähnen...

Hallo M4V3R1CK_14

So sollte es auch ohne Outlook gehen. Muss zwar zugeben, das auf allen PC's wo ich dies benötigt habe Outlook drauf war.


Dim iMsg As CDO.Message
Set iMsg = New CDO.Message
iMsg.From = "Mail@adrese"
iMsg.To = "empfaenger@Adresse"
iMsg.HTMLBody = "test"

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 25

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver ").Value = "localhost"

iMsg.Configuration.Fields.Update

iMsg.Send

-----------------------------------------------------------------

Auf jeden Fall kommt die dämliche Outlook Sicherheitsmeldung nicht.

gruss
Heinz

Thx für die hilfe...
Müsste ich bei diesem Code noch etwas verändern? Also mal abgesehen von adresse etc...
Irgendetwas funktioniert bei mir noch nicht...
Es kommt die Fehlermeldung "Fehler beim Kompilieren" Benutzerdefinierter Typ nicht definiert...


Private Sub Command1_Click()

Dim iMsg As CDO.Message
Set iMsg = New CDO.Message
iMsg.From = "Absender@anbieter.ch"
iMsg.To = Text1
iMsg.HTMLBody = Text2

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 25

iMsg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver ").Value = "localhost"

iMsg.Configuration.Fields.Update

iMsg.Send

End Sub


So sieht der Code bei mir aus... das Problem zeigt es mir beim "Private Sub Command1_Click()" an...
ich hab halt noch nicht so viel ahnung von VB...

Cya M4V3R1CK_14

Hast du den Verweis auf die Mircosoft CDO for Windows Libraries in deinem Projekt gesetzt?

Heinz

ja... hab ich grad gemacht und es funktioniert... danke für die hilfe

allerdings hat sich gerade ein neues Problem gestellt... die "Beep" Funktion beept bei mir nicht mehr
wenn ich den beep über ATI definiere gehts aber der einfache "Beep" ist stumm geworden... scheint so als ob er den sound nicht mehr findet... kann man da was machen?