PDA

Vollständige Version anzeigen : emails in vb versenden


Lock'N Load
08.04.2001, 19:41
hi leute !

ich will emails in vb versenden, weiss aber nicht wie...

ich hoff, dass ihr mir weiter helfen könnt, thx

MadCat
11.04.2001, 12:33
Versuchs mit diesem Code, dazu mußt du die Outlook-Ansteuerung in den Verweisen aktiviert haben. Hier der Code:
Private Sub Befehl5_Click()

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim Nachricht

Nachricht = "Hallo , " & vbCrLf & vbCrLf _
& "was ich dir noch sagen wollte:"


' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")

' Create the message.

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

Set objOutlookRecip = .Recipients.Add("deinemailadresse@wasweißichwo.de")
objOutlookRecip.Type = olTo
.Subject = "Hier kommt der Betreff hin"
.Importance = olImportanceHigh 'High importance :-))
.Body = Nachricht
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next

.Display


End With
Set objOutlook = Nothing
End Sub

Viel Glück!!

Lock'N Load
11.04.2001, 20:23
hi !

danke... ich hab mir das eigentlich leichter vorgestellt...

clegewie
05.07.2002, 14:27
Hi,

das hilft mir auch weiter.

Was muss ich denn noch ändern, wenn ich eine Datei, der email, anhängen möchte ?

Gruß

Stefan Kulpa
10.07.2002, 07:19
<font face="Verdana" size="2">Hallo!

Also wenn du dir's einfach machen möchtest, dann schau dir mal die mit VB6 mitgelieferten Microsoft MAPI-Controls 6.0 an. Ein Beispiel dazu findest du in den installierten Samples von VB6 (ich glaube, erst ab der Pro-Version)...


HTH</font>