רגיל לא מיוחד
New member
שליחת קוד HTML דרך אקסס 2013
היי,
אני מצאתי את הקוד הבא (מצורף למטה) לשליחת מייל מתוך אקסס ללא שימוש בOUTLOOK. הקוד עובד נהדר. הבעיה, שאני רוצה לשלוח טקסט מעוצב, כלומר להשתמש בHTML, יש למישהו רעיון כיצד אני יכול לשלוח את המייל בפורמט HTML?
תודה
Set iCfg = CreateObject("CDO.Configuration")Set iMsg = CreateObject("CDO.Message")With iCfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.server.com".Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="MyUserName".Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="MyPassordNotAlwaysNeeded".Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")= "[email protected]".UpdateEnd WithWith iMsg.Configuration = iCfg.Subject = "Subject".To = "[email protected]".TextBody = "MessageBody".AddAttachment "FullPathToAttachment".SendEnd WithSet iMsg = NothingSet iCfg = Nothing
היי,
אני מצאתי את הקוד הבא (מצורף למטה) לשליחת מייל מתוך אקסס ללא שימוש בOUTLOOK. הקוד עובד נהדר. הבעיה, שאני רוצה לשלוח טקסט מעוצב, כלומר להשתמש בHTML, יש למישהו רעיון כיצד אני יכול לשלוח את המייל בפורמט HTML?
תודה
Dim iCfg As ObjectDim iMsg As ObjectSet iCfg = CreateObject("CDO.Configuration")Set iMsg = CreateObject("CDO.Message")With iCfg.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.server.com".Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="MyUserName".Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="MyPassordNotAlwaysNeeded".Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")= "[email protected]".UpdateEnd WithWith iMsg.Configuration = iCfg.Subject = "Subject".To = "[email protected]".TextBody = "MessageBody".AddAttachment "FullPathToAttachment".SendEnd WithSet iMsg = NothingSet iCfg = Nothing