Added (jobs): Automating Emails from Excel
hello listers
to begin with I have no great excel skills
What I am looking for is a macro that I can easily use to send mail to a list of users. I have made a web page that students sign up on: http://biosciences.utoledo.edu/prs, enter there info and, when they press submit, the data is saved to a text file that can be opened as a CSV file in Excel. I would like to have a macro go row by row, down the sheet, and extract the email from column G and insert that into a new email message, and also grab the students name from coulmn B. The CSV file is set up like this:
ID Fname Lname StudentID TransmitID Section email lecture DATE
Soon, we will add more columns to it to put student grades. Is it possable that the macro could also add up there grades and if they have an "A" it would send a msg saying that you're doing great or some thing or if they got a "D" it would say you might want to get help in class so the students will know how they're doing. Is this possable ??
Dale
Q241498 - XL2000 How to Send Form Mail That Uses Excel Data
I worked on something similar awhile back and saved this info from MS knowledge Base.
Q241498 - XL2000 How to Send Form Mail That Uses Excel Data.htm
This article contains a Microsoft Visual Basic for Applications macro for Excel that uses Microsoft Outlook 2000 to generate and send a form e-mail to individuals that are listed in an Excel worksheet.
This macro assumes the following:
- E-mail addresses are in column A.
- Names are in column B.
- Cells A1 and B1 contain headers.
To create the macro:
- Start Excel. Create a new workbook, and open the Visual Basic editor (press ALT+F11).
- On the Insert menu, click Module.
- On the Tools menu, click References.
- In the Available References list, click to select the Microsoft Outlook 9.0 Object Library check box. Click OK.
- Type the following code into the code module:
Code:
'Set up the Outlook objects.
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Declare our global variables to be used in each subroutine.
Dim CustomerAddress As String
Dim CustomerMessage As String
Sub MailItNow()
'Declare our variables.
Dim X As Integer
Dim TempCustomerAddress As String
'Prevent screen redraws until the macro is finished.
Application.ScreenUpdating = False
'Sort the addresses and names alphabetically, by the e-mail address.
'This is REQUIRED to prevent any duplicate addresses from
' receiving more than one e-mail.
Columns("A:B").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Sets which row to start searching for e-mail addresses and names.
X = 2
'Begin looping through all the e-mail addresses in column A until
' a blank cell is hit.
While Range("A" & X).Text <> ""
'These variables will be used to search for duplicates.
CustomerAddress = Range("A" & X).Text
TempCustomerAddress = CustomerAddress
'Increment X until a different e-mail address is found.
While TempCustomerAddress = CustomerAddress
X = X + 1
CustomerAddress = Range("A" & X).Text
Wend
'Add the e-mail address to a global variable.
CustomerAddress = Range("A" & X - 1).Text
'Add a message with the user's name to the e-mail.
'Customize your own message and closing here.
CustomerMessage = Range("B" & X - 1).Text & "," & vbCrLf & vbCrLf _
& "Thank you for trying our product!" & vbCrLf & vbCrLf & _
"Sincerely," & vbCrLf & "ProductCo Inc."
'Run the subroutine to send the message.
Call SendMessage
Wend
End Sub
Sub SendMessage(Optional AttachmentPath)
'This is required to prevent a name which does not resolve to
' an e-mail address from hanging the app.
On Error Resume Next
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(CustomerAddress)
objOutlookRecip.Type = olTo
' Set the Subject, Body, and Importance of the message.
.Subject = "Thank You!"
.Body = CustomerMessage
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
Exit Sub
End If
Next
.Send '--- Send the message.
End With
'Remove the message and Outlook application from memory.
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
6. On the File menu, click Close and Return to Microsoft Excel.
7. To run the code, make sure the address database sheet is active. On the Tools menu, point to Macro, and click Macros. Click MailItNow, and then click Run.
Hope this helps
Len
Relocate Dimension statements to ThisWorkBook
Try This:
1)Open the Excel file with the mail macro's
2)Open Visual Basic editor expand the folder Microsoft Excel Objects
3)Double click on ThisWorkBook folder in the Microsoft Excel Objects in the current VBAproject
4)Open Module1 in modules of the project and cut the following code from the top of the module:
Code:
'Set up the Outlook objects.
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
'Declare our global variables to be used in each subroutine.
Dim CustomerAddress As String
Dim CustomerMessage As String
5)Paste this into item 2 from above (ThisWorkBook folder) General - Declarations
6) Save, close and Try
Hope this helps
Len :type
