[Excel] VB mailer in een Excel sheet

[Mr_Gee]

Volgens mij moet t mogelijk zijn om in Excel een sheet te mailen
door het indrukken van een knop op de sheet zelf.
met een macro welliswaar maar t moet kunnen.

ik heb dit nodig voor mn werk...
Het idee is dus dat de macro de "To" uit een bepaalde Cell haald (WhichAdress)
dat de CC uit een bepaalde Cell wordt gehaald (Sender)
en dat de Subject ergens vandaan wordt gehaald (subject)

Zover ben ik gekomen....maar hij geeft steeds een error...

code:

Sub Button_Click()
Mailer.Object.Parent
Subject.String.Range("G8").Select
WhichAdress.Range("G4").Select
Sender.String.Range("G6").Select

Nou is mijn VB kennis nooit verder gekomen dan "Hello world"
dus als iemand mij daar mee zou kunnen helpen.....Graag!!

[Verwijderd]

Wat dacht je van onderstaande regel

code:

ActiveWorkbook.SendMail Recipients:="[e-mail]", Subject:="My Workbook"

of

code:

ActiveWorkbook.SendMail Recipients:=Workbooks("Book1").Sheets("Sheet1").Range("A1"), _
    Subject:=Workbooks("Book1").Sheets("Sheet1").Range("A2")

[Edit]
Use the SendMail method in Microsoft Mail (MAPI or Microsoft Mail for the Macintosh) e-mail systems. Pass addressing information as parameters. Use the SendMailer method in PowerTalk e-mail systems on the Macintosh. The Mailer object contains the addressing information for PowerTalk.

Deze is ook wel handig.

code:

Select Case Application.MailSystem
    Case xlMAPI
        MsgBox "Mail system is Microsoft Mail"
    Case xlPowerTalk
        MsgBox "Mail system is PowerTalk"
    Case xlNoMailSystem
        MsgBox "No mail system installed"
End Select

[pkouwer]

[quote]Mr_Gee schreef op 24 oktober 2002 @ 14:14:

Zover ben ik gekomen....maar hij geeft steeds een error...
quote]

error zelf misschien posten

[Mr_Gee]

de error, ik zit nu weer thuis, maar t was iets met error 424
do you wish to debug?

en dan gaf hij aan dat de "Mailer.Object.Parent" een error had,
no odject specified volgens mij..

helpt dit?
ik zal t morgen nog even opzoeken

tnx Underscore ik ga t morgen even proberen