Email

[Guest]

Hi

i am testing engg i am using excel as bug reporting tool. now columns as
follows
TCID Prereq StepstoFollow Exp Res Act Res Pass/Fail Date BID Mail
1 ABC ABC XYZ XYZ Pass 6-6-05
5 sachin
2 PQR ABC XYZ XYZ Pass 7-6-05
- sachin
In coloumn Mail sachin is link to (e-mail address removed)

When i click on sachin ( at end of 1 TCID) link it should send mail to
(e-mail address removed).
To : (e-mail address removed)
Sub : New Bug BID = 5

Message

TCID Prereq StepstoFollow Exp Res Act Res Pass/Fail Date BID
1 ABC ABC XYZ XYZ Pass 6-6-05
5


How i can do this by programming or any micro.
Help me.

Regards,

Sachin

 

[Bob Phillips]

Take a look at www.rondebruin.nl/sendmail.htm, he seems to cover most
possibilities there.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

'Option Explicit
'sorry that comments in Polish

Sub send_excel()
' wysyła aktywny arkusz jako załącznik
wyslij = Application.Dialogs(xlDialogSendMail).Show("(e-mail address removed)",
"temat")
End Sub

Sub send_outlook() 'Jeżeli mamy MSOutlooka możemy skorzystać z odwołania do
jego biblioteki - mamy wtedy znacznie większe możliwości kształtowania naszej
wiadomości. Poniższy kod wysyła e-maila za pomocą MSOutlooka (zmodyfikowany
kod pochodzi z samples.xls):
' <<< important! >>> For this example click References on the Tools Menu,
and select the Microsoft Outlook 9.0 object libraries.
Dim ol As Object, myItem As Object 'Create a Microsoft Outlook session
On Error Resume Next

Set ol = CreateObject("outlook.application") 'Create a mail
For i = 1 To 1
Set myItem = ol.CreateItem(olMailItem)

adresat = "(e-mail address removed)" 'adresat wiadomości, jeśli wielu oddzielamy
znakiem separacji ;
temat = "Temat wiadomości" 'tutaj temat wiadomości
tresc = "Treść linia 1" & vbCr & "treść linia 2"
' zalacznik = "c:\Afin\Arkusze\Bilans1.xls"
With myItem
.To = adresat
.Subject = temat
.Body = tresc
.NoAging = True
.ReadReceiptRequested = False 'True jesli chcesz by przesłano
potwierdzenie odczytu
.OriginatorDeliveryReportRequested = False 'True jesli chcesz by
potwierdzenie odbioru
' .Attachments.Add zalacznik
.Send
' .Save ' Save if into draft
End With

Set myItem = Nothing
Next i
Set ol = Nothing 'Remove object from memory
End Sub

Wojciech G. (e-mail address removed)