How to send an e-mail from excel 97 ?

[daelese]

Hello

Can somebody tell me the VBA proc to send an e-mail from excel 97 (not a workbook but a mail text) ?

Tks a lot

Serge

 

[mot98]

Try this code out:

Sub SendNotif()

Dim bStarted As Boolean
Dim oOutlookApp As Object
Dim oItem As Object

On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application&quot
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oOutlookApp = CreateObject(&quot;Outlook.Application&quot
bStarted = True
End If

'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(0)

With oItem
'Set the recipient for the new email
.To = &quot;yourname@whatever.com&quot;
'Set the subject
.Subject = &quot;E-mail message&quot;
'Set the message body
.Body = &quot;E-mail sent from excel document&quot;
.Send
End With

If bStarted Then
'If we started Outlook from code, then close it
oOutlookApp.Quit
End If

'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub


Hope this helps...

mot98


&quot;Victory goes to the player who makes the next-to-last mistake.&quot;
- Chessmaster Savielly Grigorievitch Tartakower (1887-1956)