outlookvbaについて教えてください
現在選択中（現在開いている）メールの受信日時や送信者などをｖｂａで取得したいのですが
間違っているようで、エラーになります。
Sub Sample()
Dim myNaSp As NameSpace
Dim myOlSel As Outlook.Selection
Dim myItem As MailItem
Set myNaSp = GetNamespace("MAPI")
Set myOlSel = Application.ActiveExplorr.Selection ’ここでエラー
Debug.Print myItem.ReceivedTime
Debug.Print myItem.SenderName
Debug.Print myItem.To
Debug.Print myItem.Subject
Set myNaSp = Nothing
End Sub
エラーの部分で、
実行時エラー '438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
になります。
修正箇所などご教授いただければ助かります。
よろしくお願いします。
Excelにおいて、マクロを使ってShint-JIS形式のエンコードを行いたいのですが
その方法(ソース)がネット上で見つかりません。。どなたかご教授いただけないでしょか！
※VBA(マクロ)について、ぜんぜん詳しくありません。。
検索 ⇒ %8c%9f%8d%f5
UTF-8の場合ならば、シンプルなものが見つかりました。
-----------------------------------------------------
Public Function UrlEncode(ByVal sText As String) As String
If Len(sText) = 0 Then Exit Function
With CreateObject("ScriptControl")
.Language = "JScript"
UrlEncode = .CodeObject.encodeURIComponent(sText)
End With
End Function
また、デコードするものも見つかりました。
-----------------------------------------------------
Function URLDecodeSJIS(src)
src = UnEscape(src)
For i = 1 To Len(src)
srcCh1 = AscW(Mid(src, i, 1))
If (&H0 <= srcCh1 And srcCh1 <= &H80) Or (&HA0 <= srcCh1 And srcCh1 <= &HDF) Then
URLDecodeSJIS = URLDecodeSJIS & Chr(srcCh1)
ElseIf (&H81 <= srcCh1 And srcCh1 <= &H9F) Or (&HE0 <= srcCh1 And srcCh1 <= &HFF) Then
i = i + 1
srcCh2 = AscW(Mid(src, i, 1))
clcCh = srcCh1 * 256 + srcCh2
If (Asc(Chr(clcCh)) And &HFFFF&) = clcCh Then clcCh = Chr(clcCh)
URLDecodeSJIS = URLDecodeSJIS & clcCh
End If
Next
End Function
Function UnEscape(s)
With CreateObject("MSScriptControl.ScriptControl")
.Language = "VBScript"
.Reset
UnEscape = .Eval("unescape(""" & s & """)")
End With
End Function
よろしくお願い致します。
http://www.ken3.org/cgi-bin/group/vba_outlook.asp
を参考に
Sub Sample()
Dim oApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.Folder
'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
'作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.display
End Sub
でエクセルからアウトルックを起動しているのですが
既に起動していると２個起動してしまいます。
「既に起動しているのなら起動しない」という事はできますか？
参考URLに
起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
と書いてありますが、ちょっと勘弁できませんでした笑
http://www.ken3.org/cgi-bin/group/vba_outlook.asp
を参考に
Sub Sample()
Dim oApp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolder As Outlook.Folder
'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
Set oApp = CreateObject("Outlook.Application")
Set myNameSpace = oApp.GetNamespace("MAPI")
'作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.display
End Sub
でエクセルからアウトルックを起動しているのですが
既に起動していると２個起動してしまいます。
「既に起動しているのなら起動しない」という事はできますか？
参考URLに
起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
と書いてありますが、ちょっと勘弁できませんでした笑
1つ前と２つ前のB列の値をC.D列に出力することができるのですが、この時のデータ数を知りたいのですがどうすればいいでしょうか？
Sub sample()
Dim i As Long, j As Long, flg As Boolean
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
flg = True
ElseIf Cells(i, 1) = 1 And flg = True Then
j = j + 1
Cells(j, "BT") = Cells(i - 1, "BS")
Cells(j, "BU") = Cells(i - 2, "BS")
flg = False
Else: flg = False
End If
Next
End Sub
これでC1とD2に対応するB？とB？の間のデータ数がE1に、C2とD3に対応するB?とB?の間のデータ数がE２にC3と・・・
という具合です。
わかりにくくてすみません。よろしくお願いします。
1つ前と２つ前のB列の値をC.D列に出力することができるのですが、この時のデータ数を知りたいのですがどうすればいいでしょうか？
Sub sample()
Dim i As Long, j As Long, flg As Boolean
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
flg = True
ElseIf Cells(i, 1) = 1 And flg = True Then
j = j + 1
Cells(j, "BT") = Cells(i - 1, "BS")
Cells(j, "BU") = Cells(i - 2, "BS")
flg = False
Else: flg = False
End If
Next
End Sub
これでC1とD2に対応するB？とB？の間のデータ数がE1に、C2とD3に対応するB?とB?の間のデータ数がE２にC3と・・・
という具合です。
わかりにくくてすみません。よろしくお願いします。
1つ前と２つ前のB列の値をC.D列に出力することができるのですが、この時のデータ数を知りたいのですがどうすればいいでしょうか？
Sub sample()
Dim i As Long, j As Long, flg As Boolean
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
flg = True
ElseIf Cells(i, 1) = 1 And flg = True Then
j = j + 1
Cells(j, "BT") = Cells(i - 1, "BS")
Cells(j, "BU") = Cells(i - 2, "BS")
flg = False
Else: flg = False
End If
Next
End Sub
これでC1とD2に対応するB？とB？の間のデータ数がE1に、C2とD3に対応するB?とB?の間のデータ数がE２にC3と・・・
という具合です。
わかりにくくてすみません。よろしくお願いします。
1つ前と２つ前のB列の値をC.D列に出力することができるのですが、この時のデータ数を知りたいのですがどうすればいいでしょうか？
Sub sample()
Dim i As Long, j As Long, flg As Boolean
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
flg = True
ElseIf Cells(i, 1) = 1 And flg = True Then
j = j + 1
Cells(j, "BT") = Cells(i - 1, "BS")
Cells(j, "BU") = Cells(i - 2, "BS")
flg = False
Else: flg = False
End If
Next
End Sub
これでC1とD2に対応するB？とB？の間のデータ数がE1に、C2とD3に対応するB?とB?の間のデータ数がE２にC3と・・・
という具合です。
わかりにくくてすみません。よろしくお願いします。
Sub Test1()
Dim objShell As Object
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
Debug.Print objWin
Next
End Sub
のコードを実行すると、
・Microsoft Internet Explorer
・Windows Internet Explorer
が取得されるのですが、
これは何が取得されてるのでしょうか？
ＩＥブラウザとフォルダですか？
ＩＥブラウザは３つ
フォルダは５つ
立ち上げてますが
このコードを実行すると、
Microsoft Internet Explorer
は、4つ
Windows Internet Explorer
は、3つ取得されます。
ＯＳはＸＰです。ご回答よろしくお願いします。
