E-Mail in VB ??

[Shiloh]

Hallo, weiß irgendjemand wie ich in VB E-Mails versenden kann, bzw.ein Prog schreiben kann das das dann macht ?

Danke für eure Hilfe

Gruß Shiloh

[microdommi]

Hallo!

Entweder so:

' 1) Open a new project in Visual Basic.

' 2) On the Tools menu, choose References and select the Microsoft CDO 1.21 Library.

' 3) Add a CommandButton to the default form. Accept the default name, Command1.

' 4) Copy the following code into the General Declarations section of the default form:

Option Explicit

Private Sub Command1_Click()

Dim objSession As Object

Dim objMessage As Object

Dim objRecipient As Object

'Create the Session Object

Set objSession = CreateObject("mapi.session")

'Logon using the session object

'Specify a valid profile name if you want to

'Avoid the logon dialog box

objSession.Logon profileName:="MS Exchange Settings"

'Add a new message object to the OutBox

Set objMessage = objSession.Outbox.Messages.Add

'Set the properties of the message object

objMessage.subject = "This is a test."

objMessage.Text = "This is the message text."

'Add a recipient object to the objMessage.Recipients collection

Set objRecipient = objMessage.Recipients.Add

'Set the properties of the recipient object

objRecipient.Name = "John Doe" '<---Replace this with a valid

'display name or e-mail alias

objRecipient.Type = mapiTo

objRecipient.Resolve

'Send the message

objMessage.Send showDialog:=False

MsgBox "Message sent successfully!"

'Logoff using the session object

objSession.Logoff

End Sub

----------

Oder:

Dem Link folgen und Komponenten direkt downloaden:

Download von Mail-Komponenten

-------

Oder mit der WinsockOCX:

Download von Code für SMTP Mail versenden!

--------

Oder einfach mal auch www.vbcode.com vorbeischauen.

Cu

Christoph

[Shiloh]

Hi, Danke für den Tipp !

Ich habs jetzt aber mit sonem Tool hinbekommen, das wir für E-Mails einsetzten.

Gruß Shiloh