Dear Group members,
Below is the code that i have been using in windows based laptop to
connect MS excel to outlook. It takes the email address from a
predefined col G and sends a customized email to the recipient. I have
a two problems.
1) I have now moved to a Mac and instead of outlook now have apple
mail. Can someone modify this code to link excel to apple email
instead of outlook.
1.1) If linking it to Apple is difficult, can someone convert this
code into CDO.
2) As you can see, I have modified the code for the email body using
html, what I want to additionally add to this code is that when
someone click on the hyperlink, I should get an email back with the
email id of the person who had clicked the link in the email. Can
someone help me with a php script that can help me with this.
rgds,
Roopesh Kapur
Sub TestFile()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim str As String
Dim Subs As String
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
For Each cell In
Sheets("Mailer").Columns("G").Cells.SpecialCells(xlCellTypeConstants)
Set OutMail = OutApp.CreateItem(0)
str = cell.Offset(0, -2).Value
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = Subs
.HTMLBody = "<body>" & _
"<table align =""middle"" border=0 cellspacing=0 cellpadding=0
valign=""top""><tr><th colspan=3 align=""middle""
bgColor=#006666><FONT size=3 color=#ffffff>To,  <b>" &
cell.Offset(0, -5).Value &
"</b></FONT></th></tr></table>" & _
"<table align =""middle"" border=1 valign=""top"">" & _
"<tr><th width=693 colspan=3 align=""center"" bgColor=#ccccff><a
href=""http://www.starstoneseries.co.in"";><img src=""http://
www.starstoneseries.co.in/logo.png""></a><br>Click on the logo to
visit our website</th></tr></table>"
.Display
AppActivate Subs
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s", True
End With
On Error GoTo 0
Set OutMail = Nothing
A = A + 1
Range("H1").Value = A
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
