Sendmail

Computer: Software & Programmierung Visual Basic
1

hallo zusammen,
warum um gottes willen geht bei mir der befehl zum mailversenden im vb ned?

Options.SendMailAttach = True
ActiveDocument.SendMail

es kommt immer lzf:425

hat jemand ne idee?
also vb6 - duch ein klick auf einem button soll er mir ein doc als mail verschicken! (nicht als attachment sondern direkt im mail!

hm? achja fehlertext- object required run time error 425

gruss manuel!

2

Also bei mir funktioniert folgendes Coding (VB6/Office2000/Win2000) einwand frei:

Dim oWord As Word.Application
Dim oDoc As Word.Document

Set oWord = New Application
Set oDoc = oWord.Documents.Add

oDoc.Range.Text = "Hugo was here!"

oWord.Visible = True

Debug.Assert False

oWord.Options.SendMailAttach = True
Call oDoc.SendMail

Debug.Assert False
Set oWord = Nothing

Nicht vergessen - unter Projekt / Verweise die „Microsoft Word x.x Object Library“ einbinden.

greets from michL (vienna)

3

jep - super das funtzt!

jetzt haett ich da noch was - und zwar hab ich ne combobox - mit zwei „sachen“ zur auswahl - wenn ich auf den pfeil klicke ist´s leer - sobald ich aber nen buchstaben reinschreiben erscheinen auch die zwei „sachen“ in der liste…? hm! was mach ich nun wieder falsch?

gruss manuel!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

hallo manuel,

wie ist der code zur combobox?

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

hallo,

auch bei deiner variante tut sich nuesht

bei mir sieht es so aus der code

Private Sub Combo1_Change()

Call Combo1.AddItem(„AAAAAA“)
Call Combo1.AddItem(„BBBBBB“)

End Sub

gruss manuel!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

7

es tut sich nuescht, weil das ereignis nicht ausgelöst wird…

besser so…

Private Sub UserForm\_Initialize()
Call Combo1.AddItem("AAAAAA")
Call Combo1.AddItem("BBBBBB")
End Sub

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

8

so tut sich aber auch nuescht!
hm - „ziehmlichratlos!“

gruss manuel!

es tut sich nuescht, weil das ereignis nicht ausgelöst
wird…

besser so…

Private Sub UserForm_Initialize()
Call Combo1.AddItem(„AAAAAA“)
Call Combo1.AddItem(„BBBBBB“)
End Sub

gruß

rasta

hallo,

auch bei deiner variante tut sich nuesht

bei mir sieht es so aus der code

Private Sub Combo1_Change()

Call Combo1.AddItem(„AAAAAA“)
Call Combo1.AddItem(„BBBBBB“)

End Sub

gruss manuel!

Verstehe ich zwar nicht ganz, aber vielleicht ein paar
grundlegende Dinge:

  • fange ein neues VB-Projekt an.
  • ziehe eine ComboBox auf’s Form.
  • befülle die ComboBox mit

Call Combo1.AddItem(„AAAAAA“)
Call Combo1.AddItem(„BBBBBB“)

  • Starte das Projekt.
    Dann sollte es 2 Auswahlmöglichkeiten geben, die, wenn man auf
    den Pfeil klickt, sofort zur Auswahl stehen.
    Möchtes Du verhindern das Benutzer etwas eingeben können (die
    Benutzer sollen nur wählen), dann musst Du bei den
    Eigenschaften der ComboBox das Property „Style“ auf „2 -
    Dropdown-Liste“ stellen.
    Hoffe, es hilft Dir!
    greets from michL (vienna)