Email Reminder through Excel for APQP Planning

J

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.
 

Attachments

  • Sent email reminder via excel.xls
    28.5 KB · Views: 278
A

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.
 
M

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.
 

Attachments

  • Birthday Reminder Template.xlsx
    15.9 KB · Views: 267
J

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?
 
J

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?
 

Attachments

  • Send email reminder via outlook.xls
    27.5 KB · Views: 247
D

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...
Code:
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
 
Top Bottom