Behavioral task
behavioral1
Sample
=?iso-8859-1?Q?Reklamationsblankett_f=F6r_ALEM_09_.docm?=
Resource
win7-20240221-en
Behavioral task
behavioral2
Sample
=?iso-8859-1?Q?Reklamationsblankett_f=F6r_ALEM_09_.docm?=
Resource
win10v2004-20240412-en
General
-
Target
QuarantineDownload.zip
-
Size
283KB
-
MD5
54a89bdb9da6213d70cc98e976ea1ca8
-
SHA1
7c4040cda57cf6a6539d212ca3e7c77916ade45e
-
SHA256
7804c8828bf319b61f0b2c2e12f6e2e3f33a92313e86e7987b0ad8382dcadca8
-
SHA512
ffd0ee9c3e9ed9540ebd2218967cc0bfed78a33d64b753d13382aab92b9bf3ce2d761a73f2a706894a15c9910f8d014afcd943a874cbc9ac541757c1589aae8a
-
SSDEEP
6144:Ox/Gjbg8f+LmTJRignlb837KhUECSo52Gv75HL4Fw8+hG90PGSR:Ox/G482CJcg6sicG758pClR
Malware Config
Signatures
-
resource static1/unpack002/=?iso-8859-1?Q?Reklamationsblankett_f=F6r_ALEM_09_.docm?=
Files
-
QuarantineDownload.zip.zip
Password: infected
-
8c4af3b3-e684-4697-ae3d-08dc5d437100/af356ea4-0b22-1252-7777-fc0f0072f14a.eml.eml
-
https://www.seg.se/alem09/allman-information/
-
https://clicktime.symantec.com/15sMFoCgA1dcwk7F4faag?h=Gn1xUhTrwFZ_tmnWHTv_aJQ4IPswtv59DASNN9LN-W8=&u=
-
https://clicktime.symantec.com/15sLvURYKYuFHxoYtRyzC?h=LJRM7a-ltmF35f6r8OSPi2AaUeC2E4rB2h8YAfrsd9g=&u=
-
http://www.rexel.se/
-
https://clicktime.symantec.com/15sM1JcpnAaqhudURzP8p?h=uvtMghdmZkJf5K3bLmrEdYQZnX1rglNLNQJ8qZRbbDY=&u=
-
https://sv-se.facebook.com/Bravida.se
-
https://clicktime.symantec.com/15sM68p7EnGS7rTPyYnHS?h=VKYBg72pOPxNaaSuxdW9Z2wPDVdHlTQhhcVrpAQj5MM=&u=
-
https://www.instagram.com/bravidasverige/
-
https://clicktime.symantec.com/15sMAy1PhPx2XoHKX7BS4?h=Q3Frxm_Qwjh5DGKeb4hX5LWDUZup198RptYTRyWMW0g=&u=
-
https://www.linkedin.com/company/bravida
-
https://www.bravida.se/en/about-bravida/privacy-policy--personal-data
-
https://clicktime.symantec.com/15sMFoCgA1dcwk7F4faag?h=Gn1xUhTrwFZ_tmnWHTv_aJQ4IPswtv59DASNN9LN-W8=&u=https://www.seg.se/alem09/allman-information/
-
https://clicktime.symantec.com/15sLvURYKYuFHxoYtRyzC?h=LJRM7a-ltmF35f6r8OSPi2AaUeC2E4rB2h8YAfrsd9g=&u=http://www.rexel.se/
-
https://clicktime.symantec.com/15sM1JcpnAaqhudURzP8p?h=uvtMghdmZkJf5K3bLmrEdYQZnX1rglNLNQJ8qZRbbDY=&u=https://sv-se.facebook.com/Bravida.se
-
https://clicktime.symantec.com/15sM68p7EnGS7rTPyYnHS?h=VKYBg72pOPxNaaSuxdW9Z2wPDVdHlTQhhcVrpAQj5MM=&u=https://www.instagram.com/bravidasverige/
-
https://clicktime.symantec.com/15sMAy1PhPx2XoHKX7BS4?h=Q3Frxm_Qwjh5DGKeb4hX5LWDUZup198RptYTRyWMW0g=&u=https://www.linkedin.com/company/bravida
- Show all
-
-
=?iso-8859-1?Q?Reklamationsblankett_f=F6r_ALEM_09_.docm?=.docm .docm?= office2007
ThisDocument
1Attribute VB_Name = "ThisDocument"2Attribute VB_Base = "1Normal.ThisDocument"3Attribute VB_GlobalNameSpace = False4Attribute VB_Creatable = False5Attribute VB_PredeclaredId = True6Attribute VB_Exposed = True7Attribute VB_TemplateDerived = True8Attribute VB_Customizable = True9CustDocProp
1Attribute VB_Name = "CustDocProp"2'3' Sign On i Stockholm AB4'5' Project: Macro Lib6' Customer: Sign On7' ModuleName: CustDocProp8'9' Created: 2002-09-23 Lars-Eric Gisslén10' Last Modified:11'12' Description: CustomDocumentProperties functions13'14' Callable functions:15' SetCustDocProperty Name, Value16' GetCustDocProperty(Name)17'18Option Explicit1920Public Sub SetCustDocProperty(ByVal sName As String, ByVal vValue As Variant)21'*************************************************************22'* Sub CustDocProp.SetCustDocProperty23'* Author : Lars-Eric Gisslén, Sign On AB24'*25'* Purpose: Set a CustomDocumentProperty for the active document.26'* If the Property doesn't exist it will be created and will be27'* of the same type as the vValue parameter28'*29'* Parameters:30'* sName (String) The name of the CustomDocumentProperty31'* vValue (Variant) Value to write to the CustomDocumentProperty32'*33'*------------------------------------------------------------34'* Revision History35'* 2002-09-23 LG: Creatation of Sub36'*************************************************************37Dim msoType As Long3839If Not FindCustDocProperty(sName) Then40If VarType(vValue) = vbString Then41msoType = msoPropertyTypeString42ElseIf VarType(vValue) = vbBoolean Then43msoType = msoPropertyTypeBoolean44ElseIf VarType(vValue) = vbDate Then45msoType = msoPropertyTypeDate46ElseIf VarType(vValue) = vbInteger Then47msoType = msoPropertyTypeNumber48ElseIf VarType(vValue) = vbDecimal Or VarType(vValue) = vbCurrency Or _49VarType(vValue) = vbDouble Or VarType(vValue) = vbSingle Then50msoType = msoPropertyTypeFloat51Else52msoType = msoPropertyTypeString53vValue = CStr(vValue)54End If5556ActiveDocument.CustomDocumentProperties.Add _57Name:=sName, LinkToContent:=False, Value:=vValue, _58Type:=msoType59Else60ActiveDocument.CustomDocumentProperties(sName).Value = vValue61End If6263End Sub6465Public Function GetCustDocProperty(ByVal sName As String) As Variant66'*************************************************************67'* Function CustDocProp.GetCustDocProperty68'* Author : Lars-Eric Gisslén, Sign On AB69'*70'* Purpose: Retrieve the value from a CustomDocumentProperty71'*72'* Parameters:73'* sName (String) Name of the CustomDocumentProperty74'*75'* Returns (Variant): The value of the CustomDocumentProperty76'* If the DocumentProperty doesn't exist an empty string will be returned77'*78'*------------------------------------------------------------79'* Revision History80'* 2002-09-23 LG: Creatation of Function81'*************************************************************8283If Not FindCustDocProperty(sName) Then84GetCustDocProperty = ""85Else86GetCustDocProperty = ActiveDocument.CustomDocumentProperties(sName).Value87End If8889End Function90Private Function FindCustDocProperty(sKey As String) As Boolean91'*************************************************************92'* Function CustDocProp.FindCustDocProperty93'* Author : Lars-Eric Gisslén, Sign On AB94'*95'* Purpose: Tries to find a CustomDocumentProperty in the active document96'*97'* Parameters:98'* sKey (String) The name of the CustomDocumentProperty99'*100'* Returns (Boolean): True if the Property was found, otherwise False101'*102'*------------------------------------------------------------103'* Revision History104'* 2002-09-23 LG: Creatation of Function105'*************************************************************106Dim oCustProp As DocumentProperty107108FindCustDocProperty = False109110For Each oCustProp In ActiveDocument.CustomDocumentProperties111If oCustProp.Name = sKey Then112FindCustDocProperty = True113Exit For114End If115Next116117End Function118119ErrorObject
1Attribute VB_Name = "ErrorObject"2Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"3Attribute VB_GlobalNameSpace = False4Attribute VB_Creatable = False5Attribute VB_PredeclaredId = False6Attribute VB_Exposed = False7Attribute VB_TemplateDerived = False8Attribute VB_Customizable = False9'10' Sign On AB11'12' Project: VBA Error Handling13' Customer: Sign On14' ClassModule: ErrorObject15'16' Created: 2001-06-18 Lars-Eric Gisslén17' Modified: 2008-01-21 Lars-Eric Gisslén18' Added 'Comments' DocProp when sending error by Email19' Moved sMailTo from Sub to Private Const in Module header20' 2011-09-21 Lars-Eric Gisslén21' Adopted for both 32 and 64-bit versions of Office22'23' Description: Error class holding error information24'2526'**************************************27'* E-mail address to error messages to28'**************************************29Private Const sMailTo = "mailto:macrosupport@signon.se"303132'**************************************33'* Win API Declaration34'**************************************35#If Win64 Then36Private Declare PtrSafe Function ShellExec Lib "shell32.dll" Alias "ShellExecuteA" _37(ByVal hWnd As LongPtr, ByVal Operation As String, ByVal File As String, _38ByVal Parameters As String, ByVal Directory As String, ByVal ShowCmd As Long) As Long39#Else40Private Declare Function ShellExec Lib "shell32.dll" Alias "ShellExecuteA" _41(ByVal hWnd As Long, ByVal Operation As String, ByVal File As String, _42ByVal Parameters As String, ByVal Directory As String, ByVal ShowCmd As Long) As Long43#End If4445'**************************************46'* Constants for referensing array47'* elements with error strings48'**************************************49Private Const VBE_CAPTION = 050Private Const VBE_ERRNUM = 151Private Const VBE_REASON = 252Private Const VBE_SOURCE = 353Private Const VBE_SENDMAIL = 454Private Const VBE_SITUATION = 555Private Const VBE_ELEMENTS = 55657Option Explicit5859'**************************************60'* Class variables61'**************************************62Private sDescription As String ' String describing the ErrorNumber63Private nErrorNumber As Long ' Error number64Private sSituation As String ' Situation under which the error occured65Private sMacroName As String ' Name of the Macro in which the error occured66Private sCaption As String ' Caption of the MsgBox67Private sExtra As String ' Extra info.68Private bSendMail As Boolean ' Enable sending support mail with error info69Private sCaptions() As String ' Language specific strings70Private nLangID As Long ' Numeric language setting in Windows7172Public Property Get ErrorNumber() As Long73' Retrieve the error number of the Error74ErrorNumber = nErrorNumber75End Property7677Public Property Get Description() As String78' Retrieving description corresponding to the ErrorNumber79Description = sDescription80End Property8182Public Sub SetError(ByVal ErrNum As Long)83' Assign the Error Number and find the corresponding description84' This is for user defined errors like unable to instanciate an ActiveX Server85' Using this Sub requires that errors are defined and corresponding error strings86' are defined87nErrorNumber = ErrNum88SetErrorDescription8990End Sub9192Public Property Let SendMail(bSend As Boolean)93'Enable/Disable sending error reports via support mail94bSendMail = bSend95End Property9697Public Property Let Situation(ByVal Text As String)98' The situation under which the error occured99sSituation = Text100101End Property102103Property Let MacroName(sName As String)104' Set the name of the macro in which the error occured105sMacroName = sName106107End Property108109Public Property Get Situation() As String110' The situation under which the error occured111Situation = sSituation112113End Property114115Public Property Let Extra(ByVal Text As String)116' Extra info, like makro name or other useful info117sExtra = Text118119End Property120121Public Property Get Extra() As String122' Extra info, like makro name or other useful info123Extra = sExtra124125End Property126127Property Let Caption(DialogCaption As String)128' Sets a caption for the MessageBox129130sCaption = DialogCaption131132End Property133134Public Sub UseVBErrObject()135' Get the error information from the VBA Err Object136137nErrorNumber = Err.Number138sDescription = Err.Description139140141End Sub142143Sub Show()144Dim sMsg As String ' String to display in the error dialog145Dim sEmailMsg As String ' Error text to send in email146Dim sError As String ' Error number including caption147Dim sDesc As String ' Error description including caption148Dim sMacro As String ' Macro name including caption149Dim nReply As Long ' Response from dialog if email is enabled150151' Set a default dialog caption if missing152If sCaption = "" Then sCaption = sCaptions(VBE_CAPTION)153154' Build the error strings155sError = sCaptions(VBE_ERRNUM) + Str(nErrorNumber)156sMsg = sError + vbCrLf157sDesc = sCaptions(VBE_REASON) + sDescription158sMsg = sMsg + sDesc + vbCrLf159If sMacroName <> "" Then160sMacro = sCaptions(VBE_SOURCE) + sMacroName161sMsg = sMsg + sMacro + vbCrLf162End If163If sSituation <> "" Then164sMsg = sMsg + sCaptions(VBE_SITUATION) + sSituation + vbCrLf165End If166If sExtra <> "" Then167sMsg = sMsg + vbCrLf + sExtra + vbCrLf168End If169170' Check if email is enabled and that the OS is Windows171' Sending email will not work on Mac as a WinAPI call is involved172If (bSendMail = True) And (InStr(LCase(System.OperatingSystem), "win")) Then173sMsg = sMsg + vbCrLf + sCaptions(VBE_SENDMAIL) ' Text to display in dialog174nReply = MsgBox(sMsg, vbCritical + vbYesNo, sCaption)175If nReply = vbYes Then176' Build the error info string to send in email177sEmailMsg = "<<" + sError + ">> <<" + sDesc + ">> <<" + sMacro + _178">> <<" + sSituation + ">>"179If Trim(sExtra) <> "" Then180sEmailMsg = sEmailMsg & " <<" + sExtra + ">>"181End If182183SendSupportMail sEmailMsg184End If185Else186' No email, just display the error info187MsgBox sMsg, vbCritical, sCaption188End If189190End Sub191Private Sub SendSupportMail(sErrMsg As String)192' Send the error information by email193Dim sBody As String194Dim nResult As Long195196' Assamble information about the OS and Word version197sBody = "//***Document***// "198sBody = sBody + "<< Title: " + ActiveDocument.BuiltInDocumentProperties("Title").Value + ">> "199sBody = sBody + "<< Subject: " + ActiveDocument.BuiltInDocumentProperties("Subject").Value + ">> "200sBody = sBody + "<< KeyWords: " + ActiveDocument.BuiltInDocumentProperties("Keywords").Value + ">> "201If Trim(ActiveDocument.BuiltInDocumentProperties("Comments").Value) <> "" Then202sBody = sBody + "<< Comments: " + ActiveDocument.BuiltInDocumentProperties("Comments").Value + ">> "203End If204sBody = sBody + "//***Error***// "205sBody = sBody + sErrMsg206sBody = sBody + "//***MS Word***// "207sBody = sBody + "<< Version: " + Application.Version + ">> "208sBody = sBody + "//***Windows***// " + vbCrLf209sBody = sBody + "<< OS: " + System.OperatingSystem + ", " + System.Version + ">> "210sBody = sBody + "<< Country setting: " + System.LanguageDesignation + ">> "211212' Call WinAPI which in turn will call the default mail application213nResult = ShellExec(0, "open", sMailTo + "?Subject=Macro error&Body=" + sBody, "", "", 0)214215If nResult <= 32 Then216If nLangID = wdSweden Then217MsgBox "Kunde inte starta standardprogrammet för epost.", vbCritical, "Skicka epost"218Else219MsgBox "Unable to call default mail application.", vbCritical, "Send Email"220End If221End If222223End Sub224225Private Sub SetErrorDescription()226' Set error message corresponding to error number227' Has to be implemented and numeric constants has to be declared228229End Sub230231Function FindCustomDocProperty(sKey As String) As Boolean232' Find a custom doc property to avoid runtime error if the property doesn't exist.233Dim oCustProp As DocumentProperty234235FindCustomDocProperty = False236237For Each oCustProp In ActiveDocument.CustomDocumentProperties238If oCustProp.Name = sKey Then239FindCustomDocProperty = True240Exit For241End If242Next243244End Function245Private Sub Class_Initialize()246' Set defaults on initialization247Dim sCustProp As String248ReDim sCaptions(VBE_ELEMENTS)249250nLangID = System.Country251252If nLangID = wdSweden Then253' Set captions to Swedish254sCaptions(VBE_CAPTION) = "Programfel i makro"255sCaptions(VBE_ERRNUM) = "Fel nummer "256sCaptions(VBE_REASON) = "Orsak: "257sCaptions(VBE_SOURCE) = "Källa: "258sCaptions(VBE_SITUATION) = "Situation: "259sCaptions(VBE_SENDMAIL) = "Vill du skicka felmeddelandet som epost till support?"260Else261' Other language, set captions to English262sCaptions(VBE_CAPTION) = "Runtime Error in Macro"263sCaptions(VBE_ERRNUM) = "Error number "264sCaptions(VBE_REASON) = "Reason: "265sCaptions(VBE_SOURCE) = "Source: "266sCaptions(VBE_SITUATION) = "Situation: "267sCaptions(VBE_SENDMAIL) = "Would you like to send the error message to support by email?"268End If269270sCustProp = "SupportMail" ' Name of cust doc prop for enable/disable sending error email271272' Check if the doc prop for sending error info by email exist and is enabled273If FindCustomDocProperty(sCustProp) Then274bSendMail = ActiveDocument.CustomDocumentProperties(sCustProp).Value275End If276277End Sub278279280SOAutoMacros
1Attribute VB_Name = "SOAutoMacros"2'3' Sign On AB4'5' Project: EIO6' Customer: EIO7' Macro Name: SOAutoMacros8'9' Created: 2001-10-26 Leif Österberg10' Last Modified: xxxx-xx-xx11'12' Description: Runs at open, calls SOSetValues13'1415Option Explicit1617Public Sub AutoOpen()1819SOAutoMacros2021End Sub2223Public Sub AutoNew()2425SOAutoMacros2627End Sub282930Private Sub SOAutoMacros()31Dim oError As ErrorObject3233On Error GoTo ErrorHandler3435SODefDocSettings.DefaultDocSettings3637SOSetValues.SOSetValues383940Exit Sub4142ErrorHandler:43Set oError = New ErrorObject44oError.UseVBErrObject45oError.MacroName = "SOAutoMacros()"46oError.Show47End Sub4849SODefDocSettings
1Attribute VB_Name = "SODefDocSettings"2'3' Sign On i Stockholm AB4'5' Project: All6' Customer: All7' Macro Name: SODefDocSettings8'9' Created: 2003-06-03 Lars-Eric Gisslén10' Last Modified: 2009-08-06 Lars-Eric Gisslén11' ' Added On Error Resume next for print options12'13' Description: Sets the default settings for documents14'1516Option Explicit1718Sub DefaultDocSettings()19'*************************************************************20'* Sub SODefDocSettings.DefaultDocSettings21'* Author : Lars-Eric Gisslén, Sign On AB22'*23'* Purpose: Set default setting in the document for settings that can24'* cause problems with forms.25'*26'*------------------------------------------------------------27'* Revision History28'* 2003-06-03 LG: Creation of Sub29'*************************************************************30Dim oError As ErrorObject31Dim sSituation As String3233On Error Resume Next3435sSituation = "Setting view options"36With ActiveDocument.ActiveWindow37With .ActivePane.View38.Zoom.PageFit = wdPageFitBestFit39.TableGridlines = False40.ShowBookmarks = False41.ShowAll = False42.ShowFieldCodes = False43End With44.View.Type = wdPrintView45End With4647sSituation = "Setting print options"48On Error Resume Next ' This is for a bug in the first version Word 200749With Options50.UpdateFieldsAtPrint = True51.PrintBackground = True52.PrintFieldCodes = False53.PrintComments = False54.PrintHiddenText = False55.PrintDrawingObjects = True56.PrintDraft = False57.MapPaperSize = True58End With5960Exit Sub6162ErrorHandler:63Set oError = New ErrorObject64oError.UseVBErrObject65oError.MacroName = "SODefDocSettings.DefaultDocSettings()"66oError.Situation = sSituation67oError.Show68End Sub69SOSelectFormField
1Attribute VB_Name = "SOSelectFormField"2Public Function SelectFormField(ByVal sFormFieldName As String) As Boolean3'*************************************************************4'* Function SOSelectFormField.SelectFormField5'* Author : Lars-Eric Gisslén, Sign On AB6'*7'* Purpose: Selects a FormField in the document. This is a work around8'* to be able to select the whole FormField if it's empty.9'* If the FF is empty the oDoc.FormFields("Name").Select statement just puts10'* an insertion point in the FF and does not select the whole field.11'*12'* Parameters:13'* sFormFieldName (String) The name of the FormField (Bookmark)14'*15'* Returns:16'* (Boolean) True if the FormField with the passed name exists.17'*18'*------------------------------------------------------------19'* Revision History20'* 10-16-2003 LG: Creation of Function21'*************************************************************2223On Error GoTo Leave2425If ActiveDocument.Bookmarks.Exists(sFormFieldName) Then26ActiveDocument.Bookmarks((sFormFieldName)).Range.Fields(1).Result.Select27SelectFormField = True28Exit Function29End If3031Leave:3233End Function34SOSetValues
1Attribute VB_Name = "SOSetValues"2'3' Sign On AB4'5' Project: EIO6' Customer: EIO7' MacroName: SOSetValues8'9' Created: 2000-02-24 Oscar Wivall10' Modified: 2000-03-15 Oscar Wivall11' 2000-04-26 Oscar Wivall12' 2001-11-12 Leif Österberg13' 2005-11-10 Leif Österberg14' 2007-09-14 Lars-Eric Gisslén, Anpassat för nya logotypmakrot15' 2009-02-06 Lars-Eric Gisslén, Ändrat för registry data i stället för fil baserad data16'17' Dependencies: ErrorObject.cls, UserRegSettingsEIO.cls, CustDocProp.bas, Logotype_xxx.bas, SOSelectFormField.bas18'19' Description: Gets the values from Registry and20' sets the form result.21'2223Option Explicit2425Sub SOSetValues()26Attribute SOSetValues.VB_Description = "1.0.0"27Attribute SOSetValues.VB_ProcData.VB_Invoke_Func = "Project.SFSetValues.MAIN"28Dim oError As ErrorObject29Dim strFirmName As String30Dim strName As String31Dim strAddress As String32Dim strPostaladdress As String33Dim strPostalNo As String34Dim strCity As String35Dim strTelephone As String36Dim strCarPhone As String37Dim strFax As String38Dim strPgNo As String39Dim strBgNo As String40Dim strEmail As String41Dim strUrl As String42Dim strOrg As String43Dim strLogotype As String44Dim strFTax As String4546'-------------------- NEW REGISTRY CODE STARTS HERE --------------------47Dim oUser As UserRegSettingsEIO4849On Error GoTo ErrorHandler5051'Instaciate the registry class52Set oUser = New UserRegSettingsEIO5354With oUser55'Get registry data to local variables (for minimal code change)56strFirmName = .FirmName57strName = .Name58strAddress = .Address59strPostaladdress = .Postaladdress60strPostalNo = .PostalNo61strCity = .City62strTelephone = .Telephone63strFax = .Fax64strCarPhone = .CarPhone65strPgNo = .PgNo66strBgNo = .BgNo67strEmail = .Email68strUrl = .Url69strOrg = .Org70strFTax = .FTax71strLogotype = .Logotype72End With7374Set oUser = Nothing7576If Trim(strFirmName) = "" And Trim(strName) = "" Then77' No user data, exit sub78Exit Sub79End If8081Application.ScreenUpdating = False8283' If bookmark exist and is empty, set form result84If ActiveDocument.Bookmarks.Exists("FFFirmName") Then85If ActiveDocument.FormFields("FFFirmName").Result <> "" Then86Exit Sub ' Form is filled, exit sub87End If88ElseIf ActiveDocument.Bookmarks.Exists("FFName") Then89If ActiveDocument.FormFields("FFName").Result <> "" Then90Exit Sub ' Form is filled, exit sub91End If92End If93'-------------------- NEW REGISTRY CODE ENDS HERE --------------------9495FormFieldsFill "FFFirmName", strFirmName96FormFieldsFill "FFFirmName_1", strFirmName97FormFieldsFill "FFName", strName98FormFieldsFill "FFAddress", strAddress99FormFieldsFill "FFAddress_1", strAddress100FormFieldsFill "FFPostalAddress", strPostaladdress101FormFieldsFill "FFPostalNo", strPostalNo102FormFieldsFill "FFPostalNo_1", strPostalNo103FormFieldsFill "FFCity", strCity104FormFieldsFill "FFCity_1", strCity105FormFieldsFill "FFPostalNoCity", strPostalNo & " " & strCity106FormFieldsFill "FFTelephone", strTelephone107FormFieldsFill "FFFax", strFax108FormFieldsFill "FFMobile", strCarPhone109FormFieldsFill "FFPgNo", strPgNo110FormFieldsFill "FFBgNo", strBgNo111FormFieldsFill "FFEmail", strEmail112FormFieldsFill "FFUrl", strUrl113FormFieldsFill "FFOrg", strOrg114FormFieldsFill "FFFTax", "Godkänd för F-skatt"115FormFieldsFill "FFCityDate", strCity & " " & Format(Date, "yyyy-mm-dd")116' FormFieldsFill "FFDate_1", Format(Date, "yyyy-mm-dd")117' FormFieldsFill "FFDate_2", Format(Date, "yyyy-mm-dd")118119On Error Resume Next120' Ingen logotyp i detta dokument121' If GetCustDocProperty("Logotype") = False And _122' Not Left(strLogotype, 2) = "FD" And Not strLogotype = "" Then123' ' The document is not protected124' If ActiveDocument.ProtectionType = wdNoProtection Then125' InputPicture strLogotype126' Else ' The document is protected127' ActiveDocument.Unprotect128' InputPicture strLogotype129' ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True130' End If131' End If132133SelectFormField "FFSäljare"134Application.ScreenUpdating = True135136Exit Sub137138ErrorHandler:139Application.ScreenUpdating = True140Set oError = New ErrorObject141oError.UseVBErrObject142oError.MacroName = "SOSetValues()"143oError.Show144End Sub145146Private Sub FormFieldsFill(sFieldName As String, sValue As String)147Dim oError As ErrorObject148Dim sSituation As String149Dim sFFName As String150151On Error GoTo ErrorHandler152153sFFName = sFieldName154155sSituation = "Fill " & sFFName156If ActiveDocument.Bookmarks.Exists(sFFName) Then157If WordBasic.[getformresult$](sFFName) = "" Then158WordBasic.[setFormresult] sFFName, sValue159End If160End If161sFFName = sFFName & "_1"162sSituation = "Fill " & sFFName163If ActiveDocument.Bookmarks.Exists(sFFName) Then164If WordBasic.[getformresult$](sFFName) = "" Then165WordBasic.[setFormresult] sFFName, sValue166End If167End If168169170Exit Sub171172ErrorHandler:173Set oError = New ErrorObject174oError.UseVBErrObject175oError.MacroName = "SOSetValues.FormFieldsFill()"176oError.Situation = sSituation177oError.Show178End Sub179180'Private Sub InputPicture(sPathAndFileName As String)181' Dim oError As ErrorObject182'183' On Error Resume Next184'185' If ActiveDocument.Bookmarks.Exists("Logotype") = True Then186' InsertLogotype "Logotype", sPathAndFileName187' SetCustDocProperty "Logotype", True188' End If189' If ActiveDocument.Bookmarks.Exists("Logotype2") = True Then190' InsertLogotype "Logotype2", sPathAndFileName191' End If192' If ActiveDocument.Bookmarks.Exists("Logotype3") = True Then193' InsertLogotype "Logotype3", sPathAndFileName194' End If195'196' Exit Sub197'198'ErrorHandler:199' Set oError = New ErrorObject200' oError.UseVBErrObject201' oError.MacroName = "SOSetValues.InputPicture()"202' oError.Show203'End Sub204UserRegSettingsEIO
1Attribute VB_Name = "UserRegSettingsEIO"2Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"3Attribute VB_GlobalNameSpace = False4Attribute VB_Creatable = False5Attribute VB_PredeclaredId = False6Attribute VB_Exposed = False7Attribute VB_TemplateDerived = False8Attribute VB_Customizable = False9'10' Sign On AB11'12' Project: EIO13' Customer: Sign On AB14' Class Name: UserRegSettingsEIO15'16' Created: 2009-02-06 Lars-Eric Gisslén17' Last Modified:18'19' Description: Class for read/write user information to/from the registry20'2122Option Explicit2324Dim sFirmName As String25Dim sOrg As String26Dim sVATNr As String27Dim sName As String28Dim sAddress As String ' Visiting address29Dim sPostaladdress As String30Dim sPostalNo As String31Dim sCity As String32Dim sTelephone As String33Dim sCarPhone As String34Dim sPgNo As String35Dim sBgNo As String36Dim sEmail As String37Dim sUrl As String38Dim sFax As String39Dim sFTax As String ' Innehar F-skattebevis40Dim sLogotype As String ' Sökväg till logotyp4142' ---- Property Get Methods -----------------------------------------------43Property Get FirmName() As String44FirmName = sFirmName45End Property46Property Get Address() As String47' This is the vising address48Address = sAddress49End Property50Property Get Postaladdress() As String51Postaladdress = sPostaladdress52End Property53Property Get PostalNo() As String54PostalNo = sPostalNo55End Property56Property Get City() As String57City = sCity58End Property59Property Get Email() As String60Email = sEmail61End Property62Property Get FTax() As String63FTax = sFTax64End Property65Property Get Fax() As String66Fax = sFax67End Property68Property Get Logotype() As String69Logotype = sLogotype70End Property71Property Get Name() As String72Name = sName73End Property74Property Get Org() As String75Org = sOrg76End Property77Property Get Telephone() As String78Telephone = sTelephone79End Property80Property Get CarPhone() As String81CarPhone = sCarPhone82End Property83Property Get PgNo() As String84PgNo = sPgNo85End Property86Property Get BgNo() As String87BgNo = sBgNo88End Property89Property Get VATNr() As String90VATNr = sVATNr91End Property92Property Get Url() As String93Url = sUrl94End Property9596' ---- Property Let Methods -----------------------------------------------97Property Let FirmName(ByVal stext As String)98sFirmName = stext99End Property100Property Let Address(ByVal stext As String)101' This is the vising address102sAddress = stext103End Property104Property Let Postaladdress(ByVal stext As String)105sPostaladdress = stext106End Property107Property Let PostalNo(ByVal stext As String)108sPostalNo = stext109End Property110Property Let City(ByVal stext As String)111sCity = stext112End Property113Property Let Email(ByVal stext As String)114sEmail = stext115End Property116Property Let FTax(ByVal stext As String)117sFTax = stext118End Property119Property Let Fax(ByVal stext As String)120sFax = stext121End Property122Property Let Logotype(ByVal stext As String)123sLogotype = stext124End Property125Property Let Name(ByVal stext As String)126sName = stext127End Property128Property Let Org(ByVal stext As String)129sOrg = stext130End Property131Property Let Telephone(ByVal stext As String)132sTelephone = stext133End Property134Property Let CarPhone(ByVal stext As String)135sCarPhone = stext136End Property137Property Let PgNo(ByVal stext As String)138sPgNo = stext139End Property140Property Let BgNo(ByVal stext As String)141sBgNo = stext142End Property143Property Let VATNr(ByVal stext As String)144sVATNr = stext145End Property146Property Let Url(ByVal stext As String)147sUrl = stext148End Property149150Public Sub Save()151' Write all keys back to the registry152Dim oError As ErrorObject153Dim sSituation As String154155On Error GoTo ErrorHandler156157SaveSetting "SignOn", "EIOUser", "FirmName", sFirmName158SaveSetting "SignOn", "EIOUser", "Org", sOrg159SaveSetting "SignOn", "EIOUser", "VATNr", sVATNr160SaveSetting "SignOn", "EIOUser", "Name", sName161SaveSetting "SignOn", "EIOUser", "Address", sAddress162SaveSetting "SignOn", "EIOUser", "Postaladdress", sPostaladdress163SaveSetting "SignOn", "EIOUser", "PostalNo", sPostalNo164SaveSetting "SignOn", "EIOUser", "City", sCity165SaveSetting "SignOn", "EIOUser", "Telephone", sTelephone166SaveSetting "SignOn", "EIOUser", "CarPhone", sCarPhone167SaveSetting "SignOn", "EIOUser", "PgNo", sPgNo168SaveSetting "SignOn", "EIOUser", "BgNo", sBgNo169SaveSetting "SignOn", "EIOUser", "Email", sEmail170SaveSetting "SignOn", "EIOUser", "Url", sUrl171SaveSetting "SignOn", "EIOUser", "Fax", sFax172SaveSetting "SignOn", "EIOUser", "FTax", sFTax173SaveSetting "SignOn", "EIOUser", "Logotype", sLogotype174175Exit Sub176177ErrorHandler:178Set oError = New ErrorObject179oError.UseVBErrObject180oError.MacroName = "UserRegSettings.Save()"181oError.Situation = sSituation182oError.Show183End Sub184185Private Sub Class_Initialize()186' Read all keys from the registry into class variables187Dim oError As ErrorObject188Dim sSituation As String189190On Error GoTo ErrorHandler191192sFirmName = GetSetting("SignOn", "EIOUser", "FirmName")193sOrg = GetSetting("SignOn", "EIOUser", "Org")194sVATNr = GetSetting("SignOn", "EIOUser", "VATNr")195sName = GetSetting("SignOn", "EIOUser", "Name")196sAddress = GetSetting("SignOn", "EIOUser", "Address")197sPostaladdress = GetSetting("SignOn", "EIOUser", "Postaladdress")198sPostalNo = GetSetting("SignOn", "EIOUser", "PostalNo")199sCity = GetSetting("SignOn", "EIOUser", "City")200sTelephone = GetSetting("SignOn", "EIOUser", "Telephone")201sCarPhone = GetSetting("SignOn", "EIOUser", "CarPhone")202sPgNo = GetSetting("SignOn", "EIOUser", "PgNo")203sBgNo = GetSetting("SignOn", "EIOUser", "BgNo")204sEmail = GetSetting("SignOn", "EIOUser", "Email")205sUrl = GetSetting("SignOn", "EIOUser", "Url")206sFax = GetSetting("SignOn", "EIOUser", "Fax")207sFTax = GetSetting("SignOn", "EIOUser", "FTax")208sLogotype = GetSetting("SignOn", "EIOUser", "Logotype")209210Exit Sub211212ErrorHandler:213Set oError = New ErrorObject214oError.UseVBErrObject215oError.MacroName = "UserRegSettings.Class_Initialize()"216oError.Situation = sSituation217oError.Show218End Sub219 -
email-html-2.txt.html
-
email-plain-1.txt
-
image003.jpg.jpg
-
image004.jpg.jpg
-
image005.png.png
-
image006.png.png