Dear Members,
Can anyone help me.
regards,
Roopesh Kapur
On Dec 25, 4:37 pm, RK <roopesh.ka...@gmail.com> wrote:
> 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
![http://www.starstoneseries.co.in/logo.png""](http://www.starstoneseries.co.in/logo.png""){kind=link}