{"id":11469,"date":"2025-01-15T03:23:13","date_gmt":"2025-01-15T03:23:13","guid":{"rendered":"https:\/\/blog.ezworkapp.com\/index.php\/2025\/01\/15\/cach-gui-trang-tinh-qua-outlook-tu-excel\/"},"modified":"2025-01-15T03:23:13","modified_gmt":"2025-01-15T03:23:13","slug":"cach-gui-trang-tinh-qua-outlook-tu-excel","status":"publish","type":"post","link":"https:\/\/blog.ezworkapp.com\/index.php\/2025\/01\/15\/cach-gui-trang-tinh-qua-outlook-tu-excel\/","title":{"rendered":"C\u00e1ch g\u1eedi trang t\u00ednh qua Outlook t\u1eeb Excel"},"content":{"rendered":"
\n

Trong b\u00e0i vi\u1ebft n\u00e0y, H\u1ecdc Excel Online s\u1ebd h\u01b0\u1edbng d\u1eabn c\u00e1c b\u1ea1n g\u1eedi email m\u1ed9t trang t\u00ednh \u0111\u01a1n l\u1ebb trong Excel th\u00f4ng qua Outlook nh\u01b0 m\u1ed9t t\u1ec7p \u0111\u00ednh k\u00e8m, n\u1ed9i dung mail ho\u1eb7c file PDF.<\/p>\n

C\u00e1ch g\u1eedi m\u1ed9t trang t\u00ednh nh\u01b0 n\u1ed9i dung mail b\u1eb1ng l\u1ec7nh Send To Mail Recipient.<\/strong><\/p>\n

Excel h\u1ed7 tr\u1ee3 ch\u00fang ta g\u1eedi email m\u1ed9t trang t\u00ednh nh\u01b0 n\u1ed9i dung mail b\u1eb1ng l\u1ec7nh\u00a0Send to Mail Recipient<\/strong><\/em>.<\/p>\n

N\u1ebfu b\u1ea1n s\u1eed d\u1ee5ng Excel 2007, 2010 ho\u1eb7c 2013, \u0111\u1ea7u ti\u00ean b\u1ea1n c\u1ea7n th\u00eam l\u1ec7nh Send to Mail Recipient<\/strong><\/em>\u00a0v\u00e0o Quick Access Toolbar<\/strong><\/em>.<\/p>\n

1. Nh\u1ea5p v\u00e0o bi\u1ec3u t\u01b0\u1ee3ng Customize Quick Access Toolbar<\/strong><\/em>, ch\u1ecdn More Commands<\/strong><\/em>.<\/p>\n

\"doc-email-sheet1\"<\/p>\n

2. Trong h\u1ed9p tho\u1ea1i Excel Options<\/strong><\/em>, ch\u1ecdn Commands Not in the Ribbon<\/strong><\/em>\u00a0trong danh s\u00e1ch t\u00f9y ch\u1ecdn Choose Commands from<\/strong><\/em>, sau \u0111\u00f3 ch\u1ecdn Send to Mail Recipient<\/strong><\/em>,\u00a0nh\u1ea5n n\u00fat Add>><\/strong><\/em>\u00a0\u0111\u1ec3 th\u00eam l\u1ec7nh n\u00e0y, cu\u1ed1i c\u00f9ng nh\u1ea5n OK \u0111\u1ec3 l\u01b0u c\u00e0i \u0111\u1eb7t.<\/p>\n

<\/a><\/p>\n

\n
\n
\n
\n<\/a>\n<\/div>\n<\/div>\n
\n
\n
\n
\n<\/a>\n<\/div>\n<\/div>\n

3. L\u1ec7nh Send to Mail Recipient<\/strong><\/em>\u00a0v\u1eeba \u0111\u01b0\u1ee3c ch\u00e8n v\u00e0o Quick Access Toolbar<\/strong><\/em>.<\/p>\n

\"doc-email-sheet3\"<\/p>\n

4. Nh\u1ea5n bi\u1ec3u t\u01b0\u1ee3ng Send to Mail Recipient<\/strong><\/em>, m\u1ed9t h\u1ed9p tho\u1ea1i hi\u1ec7n l\u00ean, trong h\u1ed9p tho\u1ea1i E-mail<\/strong><\/em>, \u0111\u00e1nh d\u1ea5u ch\u1ecdn Send the current sheet as the message body<\/strong><\/em>, nh\u1ea5n OK.<\/p>\n

\"doc-email-sheet4\"<\/p>\n

5. M\u1ed9t h\u1ed9p ch\u1ec9nh s\u1eeda n\u1ed9i d\u1ee5ng mail hi\u1ec3n th\u1ecb tr\u00ean d\u1eef li\u1ec7u b\u1ea3ng t\u00ednh, b\u1ea1n c\u00f3 th\u1ec3 nh\u1eadp t\u00ean ng\u01b0\u1eddi nh\u1eadn, ti\u00eau \u0111\u1ec1 v\u00e0 l\u1eddi gi\u1edbi thi\u1ec7u v\u00e0o c\u00e1c \u00f4 t\u01b0\u01a1ng \u1ee9ng.<\/p>\n

<\/a><\/p>\n

6. Nh\u1ea5n Send this Sheet<\/strong><\/em>\u00a0\u0111\u1ec3 g\u1eedi trang t\u00ednh nh\u01b0 n\u1ed9i dung mail t\u1edbi ng\u01b0\u1eddi nh\u1eadn c\u1ee5 th\u1ec3.<\/p>\n

G\u1eedi trang t\u00ednh \u0111\u01a1n l\u1ebb nh\u01b0 t\u1ec7p \u0111\u00ednh k\u00e8m t\u1eeb Excel b\u1eb1ng VBA Code.<\/strong><\/p>\n

1. K\u00edch ho\u1ea1t trang t\u00ednh b\u1ea1n mu\u1ed1n g\u1eedi.<\/p>\n

2. Nh\u1ea5n gi\u1eef ph\u00edm\u00a0Alt + F11<\/strong><\/em>, c\u1eeda s\u1ed5 Microsoft Visual Basic for Applications\u00a0<\/strong><\/em>m\u1edf ra.<\/p>\n

3. Nh\u1ea5p Insert > Module<\/strong><\/em>, d\u00e1n \u0111o\u1ea1n m\u00e3 sau v\u00e0o Module Window<\/strong><\/em>.<\/p>\n

SubSendWorkSheetToPDF()\r\n'Update 20131209\r\nDimWb AsWorkbook\r\nDimFileName AsString\r\nDimOutlookApp AsObject\r\nDimOutlookMail AsObject\r\nOnErrorResumeNext\r\nSetWb = Application.ActiveWorkbook\r\nFileName = Wb.FullName\r\nxIndex = VBA.InStrRev(FileName, \".\")\r\nIfxIndex > 1 ThenFileName = VBA.Left(FileName, xIndex - 1)\r\nFileName = FileName & \"_\"+ ActiveSheet.Name & \".pdf\"\r\nActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName\r\nSetOutlookApp = CreateObject(\"Outlook.Application\")\r\nSetOutlookMail = OutlookApp.CreateItem(0)\r\nWithOutlookMail\r\n\u00a0\u00a0\u00a0\u00a0.To= \"skyyang@extendoffice.com<\/span>\"\r\n\u00a0\u00a0\u00a0\u00a0.CC = \"\"\r\n\u00a0\u00a0\u00a0\u00a0.BCC = \"\"\r\n\u00a0\u00a0\u00a0\u00a0.Subject = \"kte features\"\r\n\u00a0\u00a0\u00a0\u00a0.Body = \"Please check and read this document.\"\r\n\u00a0\u00a0\u00a0\u00a0.Attachments.Add FileName\r\n\u00a0\u00a0\u00a0\u00a0.Send\r\nEndWith\r\nKill FileName\r\nSetOutlookMail = Nothing\r\nSetOutlookApp = Nothing\r\nEndSub<\/pre>\n
<\/div>\n
Ch\u00fa \u00fd.\u00a0<\/strong>Trong \u0111o\u1ea1n m\u00e3 tr\u00ean, b\u1ea1n c\u00f3 th\u1ec3 thay \u0111\u1ed5i c\u00e1c th\u00f4ng tin sau theo \u00fd mu\u1ed1n.<\/div>\n
\n