Email Reminder through Excel for APQP Planning

[jovoga]

Hello,

I am looking for help with VBA macro to send email via Outlook automatically from Excel.

Please look to the attachment, there is described my request.
Unfortunately i a not a programmer, but your support should be very helpfully for me.
Thanks.

 

[Stijloor]

Re: Email Reminder through Excel for APQP Planing

A Quick Bump!

Can someone help?

Thank you very much!!

 

[adamsjm]

Re: Email Reminder through Excel for APQP Planing

A good Excel VBA programmer will need to know what Excel version you are running (2010, 2007, ...) and what version of Outlook you are using. The object model in Outlook changes with the different versions.

Look up a procedure on the internet using Google - something like this.
Excel XXXX to Outlook YYYY VBA MVP ...
ADD the MVP to your search - They are knowledgeable programmers who will give you the correct code.

 

[Mr.Happy]

Hi,


I will attach an Excel Birthday reminder that does a similar Email notification. It just need an adjustment for your purpose.

Hope it is something you can use.

 

[jovoga]

Thanks for reply.

It seems to be easy.
I have only problem, that i must confirm in outlook and send email.

Is possible to send email without prompting?

 

[jovoga]

Hello,
I made a macro for sending an email without prompt.

I need help.
I need to help with macro:
send email if Status is "Open" and email will be send with subject
Action Item, Comment, Target date to correct person/s.

Thanks for reply.

It seems to be easy.
I have only problem, that i must confirm in outlook and send email.

Is possible to send email without prompting?

 

[Darius]

I need help.
I need to help with macro:
send email if Status is "Open" and email will be send with subject
Action Item, Comment, Target date to correct person/s.

Not sure if you want it, but sounds like...

Sub SendMail()
Dim WS As Worksheet

With ActiveWorkbook
  For Each WS In ActiveWorkbook.Worksheets
    If WS.Cells(1, 1) = "Action items" Then
      RW = 3: AI = ""
      Do
        If WS.Cells(RW, 6) = "" Then AI = WS.Cells(RW, 1)
        If WS.Cells(RW, 8) = "Open" Then
          .SendMail Recipients:=Array(WS.Cells(RW, 5)), SUBJECT:=AI & "/" & WS.Cells(RW, 1) & ":" & WS.Cells(RW, 2) & ":" & WS.Cells(RW, 3) & Format(WS.Cells(RW, 7), " dd/mmm/yy")
        End If
        RW = RW + 1
      Loop Until WS.Cells(RW, 1) = ""
    End If
  Next WS
 ' .Close SaveChanges:=False 'are you sure that you want to close the Excel?
End With
  
End Sub