, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ "C:\Documents and Settings\SYSTEM2\Desktop\ payslip.pdf", Quality:=xlQualityStandard _ ->here i need the name of the employee When ever i select the code from drop down list from sheet 1 i.e payslip sheet Range E7 )ġ) Its not automatically saved on the name of the employeeĢ) Email id not picked up automatically ( Actual Email Id data is in second sheet i.e Mailing list Range C2:C60 & Names for the correspondence codes are in Range B2: B60) But i have faced few problems in this macro. I have worked on the code you have provided. 'gets outlook going, defines subject, who to send to, subject and message Set Outlookapp = CreateObject("Outlook.Application") 'place the email addresses you want on the sheet user can then replace a name if necessary Msg = msg & "Here is your Payslip" & Chr(13) & Chr(13) & Chr(13) 'what you want the email to say msg=msg as much as you want chr13 means hit the return key IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ "C:file location", Quality:=xlQualityStandard, _ Not a full solution but Hopefully the below will give you some clues,ĪctiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
0 kommentar(er)
