Visual Basic

Dim myByteArray = New Byte(){1, 2, 3}
' in a real application 'myByteArray' would be passed as a reference
For index = 0 To myByteArray.GetUpperBound(0)
    myByteArray(index) = myByteArray(index) Xor nOut
Next

For Each element In myByteArray
    element = element Xor nOut
Next

Member 12705131 wrote:

can any one help me with a source code?

If Selection.InlineShapes.Count = 0 Then
    MsgBox "Please select a shape!"
    Exit Sub
End If

Set ils = Selection.InlineShapes(1)
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 100)
ils.ScaleHeight = PercentSize
ils.ScaleWidth = PercentSize

Set shp = ils.ConvertToShape
...

Sub PicResizeMoveToRight()
'
' Resize Pic and move to the RHS of page
'
    Dim ils As InlineShape
    Dim shp As Shape
    Dim PercentSize As Integer
    If Selection.InlineShapes.Count = 0 Then
        MsgBox "Please select a shape!"
        Exit Sub
    End If
    
    Set ils = Selection.InlineShapes(1)
        PercentSize = InputBox("Enter percent of full size", _
            "Resize Picture", 100)
        ils.ScaleHeight = PercentSize
        ils.ScaleWidth = PercentSize
        Set shp = ils.ConvertToShape
    With shp
        .WrapFormat.Type = wdWrapTight
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .Left = wdFrameRight
    End With
End Sub

MySmtpClient.Host = "https://companyserver.com"

Dim columnName As String = _dtreasonsnonattendance.Columns(7).ColumnName

99Freddo wrote:

Anchor:=ActiveDocument.Paragraphs(1).Range

Anchor := Selection.Paragraphs(1).Range

Sub zPic()
'
' zPic Place Picture top of paragraoh 1 (at Cursor)
'
Dim openDialog As Office.FileDialog
Dim shp As Shape
Dim ils As InlineShape

Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
  openDialog.Filters.Clear
  openDialog.Filters.Add "JPEG Files", "*.jpg"
  openDialog.Filters.Add "Gif Files", "*.gif"
  openDialog.Filters.Add "PNG Files", "*.png"
  openDialog.Filters.Add "All Files", "*.*"
  If openDialog.Show Then
    imageName = openDialog.SelectedItems(1)
  End If

  Set shp = ActiveDocument.Shapes.AddPicture( _
     FileName:=imageName, _
       SaveWithDocument:=True, _
      Anchor:=Selection.Range)
  With shp
        .WrapFormat.Type = wdWrapTight
        .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
        .Left = wdFrameRight
   End With
End Sub

dcof wrote:

Thus would you show me the code on how to generate this email message?