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