famalyvar = Cells(10, 3).Value  
OrgVar = Cells(12, 3).Value  
'отправка всей книги по email  
   ActiveWorkbook.SendMail Recipients:="1111@11111.ru", Subject:=famalyvar + " " + OrgVar  
End Sub  
 
Как бы сделать так что бы отправлять не через outlook а на прямую ?

ActiveWorkbook.SendMail Recipients:="1111@111.ru", Subject:=famalyvar + " " + OrgVar  
 
вот это отправляет файл по почте используя outlook  
каким способом можно сделать что бы отправлять файл с определенного адреса на прямую не используя outlook ?

{quote}{login=Юрий М}{date=29.07.2010 10:56}{thema=}{post}В свойствах снимите галку "Выводить на печать"{/post}{/quote}  
Спасибо!

{quote}{login=The_Prist}{date=29.07.2010 10:43}{thema=}{post}Вставляете любую автофигуру на лист-Правая кнопка мыши-Назначить макрос.{/post}{/quote}  
А что бы при печати она не была видна ?

{quote}{login=The_Prist}{date=29.07.2010 10:18}{thema=Re: }{post}{quote}{login=1am3r}{date=29.07.2010 10:16}{thema=}{post}Еще вопросик как под отправку по почте сделать кнопку под формой ?{/post}{/quote}Я даже вопрос не понял. Что значит "кнопка под формой"? Под формой это как?{/post}{/quote}  
эм.. по другому, сделать кнопку  в определенном месте листа для отправки по почте.

Еще вопросик как под отправку по почте сделать кнопку под формой ?

{quote}{login=The_Prist}{date=29.07.2010 09:51}{thema=}{post}Dim sUserName As String  
sUserName = CreateObject("WScript.Network").UserName  
.Value = sUserName  
 
P.S. А вообще все перемешалось и непонятно кто вопрос задал и на какой отвечать. Я отвечал DsA{/post}{/quote}  
 
Пасиба!!!

{quote}{login=Казанский}{date=29.07.2010 09:21}{thema=}{post}Во второй процедуре какие-то непонятные повторы. Вроде так должно быть:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Cells.Count > 1 Then Exit Sub  
If Not Intersect(Target, Range("C10:C11")) Is Nothing Then  
     
   With Range("F31")  
       .Value = Now  
       .EntireColumn.AutoFit  
   End With  
     
   With Range("E31")  
       .Value = Application.UserName  
       .EntireColumn.AutoFit  
   End With  
End If  
End Sub{/post}{/quote}  
 
Спасибо помогло!  
{quote}{login=The_Prist}{date=29.07.2010 09:31}{thema=}{post}If Range(Cells(10, 3),Cells(12, 3)).Text = "" Then MsgBox "Всё заполняй!"  
Exit Sub{/post}{/quote}  
Мне нужно что бы разные сообщения выскакивали  :)  
а как за место    
.Value = Application.UserName  
 
вписить  
Sub Get_UserName()  
Dim sUserName As String  
sUserName = CreateObject("WScript.Network").UserName  
End Sub  
а то что то я не допетрю некак ?

Почему то у меня не отрабатывает (

{quote}{login=}{date=30.09.2007 12:58}{thema=}{post}Нашла - теперь вставляет и дату и имя юзера:    
--------------------------------------------  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
       If Not Intersect(Target, Range("A2:A100")) Is Nothing Then  
           With Target(1, 2)  
               .Value = Now  
               .EntireColumn.AutoFit  
           End With  
       If Not Intersect(Target, Range("A2:A100")) Is Nothing Then  
           With Target(1, 3)  
               .Value = Application.UserName  
               .EntireColumn.AutoFit  
           End With  
       End If  
       End If  
End Sub  
-----------------------------------------------------{/post}{/quote}  
 
А не подскажите как в определенную ячейку вставить?

{quote}{login=The_Prist}{date=16.04.2010 10:35}{thema=Re: Re: }{post}{quote}{login=}{date=16.04.2010 10:16}{thema=Re: }{post}ну вот как бы сделать одним нажатием  в виде адреса строчка была ?{/post}{/quote}Вы сами-то поняли, что спросили? Может уже начнем формулировать свои мысли так, чтоб всем понятно было, а не только Вам?  
 
Если я правильно понял проблему, то как вариант:  
=ГИПЕРССЫЛКА(A1)  
 
в А1 эл.адрес.    
Формулу пишите в B1, копируете и вставляете на весь столбец В до конца столбца А. Затем копируете столбец В, правая кнопка мыши-Специальная вставка-Значения. Теперь можно удалить столбец А и у Вас останутся Ваши ссылки в рабочем виде.{/post}{/quote}  
 
Огромное Спасибо все получилось! сорри за разнесение вопроса!

екселем cvs редактируется )))

при экспорте из wab в cvs  адреса электронной почты отображаются не как ссылка а как текст.  
ели дважды нажать на строку с адресом  то отображается как ссылка.  
как сделать так что бы отображалось как ссылка а то каждую строчку кликать очень долго ((