ブログにXML-RPCで投稿

Movable type やfc2など、XML-RPCのサービスを行っているブログに投稿するためのXMLを作成するために関数です

BlogIDはFC2では サブドメイン.数字fc2.com
の数字の部分

Movable typeは管理画面などのURLのblogid=の数字ですね

MTは追記（More)と概要(Excerpt)にも対応しているので、MoreとExcerptを入れています
FC2などでは使えません

Titleはブログエントリーのタイトル（記事タイトル）
Bodyはブログの記事になります

    Public Function MetaWeblogNewPostXML(ByVal BlogID As String, ByVal UserName As String, ByVal Pass As String, ByVal Title As String, ByVal Body As String, ByVal More As String, ByVal Excerpt As String)
        Dim XMLString As String
        'methodCall
        'XMLString = "<?xml version=""1.0""?>"
        XMLString = "<methodCall>"
        'methodName
        XMLString &= "<methodName>metaWeblog.newPost</methodName>"
        'params
        XMLString &= "<params>"

        'BlogID
        XMLString &= "<param><value><string>" & BlogID & "</string></value></param>"

        'UserName
        XMLString &= "<param><value><string>" & UserName & "</string></value></param>"

        'Password
        XMLString &= "<param><value><string>" & Pass & "</string></value></param>"

        'Content
        XMLString &= "<param><value><struct>"
        '本文
        XMLString &= "<member>"
        XMLString &= "<name>description</name>"
        XMLString &= "<value>"
        XMLString &= "<![CDATA[" & Body & "]]>"
        XMLString &= "</value>"
        XMLString &= "</member>"

        'タイトル
        XMLString &= "<member>"
        XMLString &= "<name>title</name>"
        XMLString &= "<value>"
        XMLString &= Title
        XMLString &= "</value>"
        XMLString &= "</member>"

        If Not More = "" Then
            'Entry More
            XMLString &= "<member>"
            XMLString &= "<name>mt_text_more</name>"
            XMLString &= "<value>"
            XMLString &= "<![CDATA[" & More & "]]>"
            XMLString &= "</value>"
            XMLString &= "</member>"
        End If

        If Not Excerpt = "" Then
            'EntryExcerpt
            XMLString &= "<member>"
            XMLString &= "<name>mt_excerpt</name>"
            XMLString &= "<value>"
            XMLString &= "<![CDATA[" & Excerpt & "]]>"
            XMLString &= "</value>"
            XMLString &= "</member>"
        End If

        'convert breaks
        XMLString &= "<member>"
        XMLString &= "<name>mt_convert_breaks</name>"
        XMLString &= "<value>"
        XMLString &= "0"
        XMLString &= "</value>"
        XMLString &= "</member>"

        '/Content
        XMLString &= "</struct></value></param>"

        'Publish
        XMLString &= "<param><value><boolean>1</boolean></value></param>"

        '/params
        XMLString &= "</params>"
        '/methodCall
        XMLString &= "</methodCall>"

        Return XMLString
    End Function