Send a Post to Your Blog Programmatically

This article is about how to connect to the Google Data Services (Blogger) and about how to send your first post to your blog. Note: All variables with a "YourBlog..."-value have to be replaced with your own values! Public Sub mygdataSendPost Dim blogService As String = "blogger" Dim blogApplication As String = "YourBloggerApplicationName" Dim blogAccount As String = "GOOGLE" Dim blogUser As String = "YourBlogUserName" Dim blogPass As String = "YourBlogPassword" Dim blogID As String = "YourBlogID" Dim blogBodyStart As String = "<div xmlns='http://www.w3.org/1999/xhtml'>" Dim blogBodyEnd As String = "</div>" Dim blogTitle As String = "YourBlogPostTitle" Dim blogPostBody As String = "YourBlogPostBody" Try Dim myService As Service = New Service(blogService, blogApplication) myService.Credentials = New GDataCredentials(blogUser, blogPass) Dim myFactory As GDataGAuthRequestFactory = myService.RequestFactory myFactory.AccountType = blogAccount Dim newPost As AtomEntry = New AtomEntry() newPost.Title.Text = blogTitle newPost.Content = New AtomContent() newPost.Content.Content = blogBodyStart + blogPostBody + blogBodyEnd newPost.Content.Type = "xhtml" newPost.Categories.Add(New AtomCategory("Google Data API", "http://www.blogger.com/atom/ns#")) Dim blogFeedUri As Uri = New Uri("http://www.blogger.com/feeds/" + blogID + "/posts/default") Dim blogCreatedEntry As AtomEntry = myService.Insert(blogFeedUri, newPost) Catch ex As Exception MessageBox.Show("Currently no access to the Google Data Services!" + vbCrLf + "Error Message:" + vbCrLf + ex.Message) End Try End Sub