Renato Knupp
-
Total de itens
57 -
Registro em
-
Última visita
Posts postados por Renato Knupp
-
-
Então, mas nesse caso eu tenho uma imagem já salva no computador (tentei adaptá-lo), no meu caso ela não está salva, a imagem está dentro da minha planilha.
Na minha planilha eu inseri a imagem dessa forma:
URL = "https://chart.googleapis.com/chart?chs=130x130&cht=qr&chl=" & Worksheets("QR").Range("q1").Value
Worksheets("QR").Pictures.Insert(URL).Select
With Selection.ShapeRange
.Name = "QR_Code"
End With
agora eu preciso pegar a imagem "QR_Code" e coloca-la no corpo do email. Tentei salva-la no computador ("C:\temp\teste.jpg"), com isso sua sugestão funcionaria mas, não deu certo. Tentei copia-la e enviar direto no .HTMLBody mas também não funciona. tentei coloca-la em uma variável, mas também sem sucesso. tá faltando algum detalhe que estou deixando passar batido.
-
Pessoal, criei uma rotinha em uma planilha para enviar um email pelo outlook, porém preciso que no corpo do email apareça uma imagem que está na minha planilha.
Dentro da planilha eu tenho uma imagem onde nomeei como "QR_Code", e quando inserir o corpo do email no .HTMLBody eu colocarei essa imagem.
.HTMLBody = "<html><body>Senhores,<br><br>Favor utilizar o código abaixo para acesso. <br>" & imagem & " <br><br> Obrigado! </body></html>"
já tentei de diversas formas, com vários exemplo pesquisados, mas não deu certo. Alguém consegue me ajudar pfvr?
-
Boa tarde pessoal, dei uma pesquisada em alguma formula que convertesse um texto em uma formula. O INDIRETO apresenta erro.
Basicamente o que preciso é em A1 eu tenho o texto "6/2", no formato texto, e em A2 eu coloque uma fórmula fazendo referencia a A1 onde o resultado seja "3".
-
Obrigado amigo, funcionou. Foi uma forma bem mais simples de resolver o problema.
-
Bom dia Pessoal,
Preciso carregar uma determinada imagem em uma ferramenta Image de um form. o problema é que essa imagem está dentro da minha planilha. Já tentei de várias formas, desde codigos simples até codigos mais complexos. alguém consegue me ajudar
Dentre minhas tentativas:
Image1.Picture = Plan1.Shapes.Range(Array("Imagem 1")).select
Plan1.Shapes("Imagem 1").CopyPicture xlScreen, xlBitmap
Paste the picture from the clipboard into our image control
Image1.Picture = Plan1.Shapes(xlBitmap).PasteTentei varias outras coisas, se alguém souber de alguma forma de fazer vai me ajudar muito.
-
Pessoal, no vb tem um camando para que o form não fique piscando enquanto algo está sendo executado, é esse:
Application.ScreenUpdating = False
alguém sabe se no c# tem algo parecido?
-
-
-
-
Pessoal,
Estou trabalhando com ListView em C# e está complicado, já trabalhei com esse componente em outras linguagens e sei que chatinho. Seguinte minha intenção é carregar de um banco de dados determinadas informações, ok isso já está funcionando, depois disso quero dar duplo click em uma linha e carregar essas informações em um form para editá-las, ai é que está o problema. Passei o dia ontem na net e nada, não consigo carregar em uma textbox o item selecionado, sempre dá erro.
se alguém tiver alguma função em C# que funcione e puder postar serei muito grato, se tiverem um tutorial sobre o componente tb , já olhei boa parte do que esta na net e não ajudou muito.
Desde já obrigado pela atenção.
-
Xistyle,
muito obrigado pela sua ajuda, quebrei um pouco a cabeça e consgui com a linha de codigo abaixo:
SqlConnection conn = new SqlConnection("Server=localhost;Database=siged;Trusted_Connection=True");
Vlw
-
Xistyle ainda nada,
la em cima eu adicionei as linhas:
using System.Data;
using System.Data.SqlClient;
mas dá erro o erro:
The using directive for 'System.Data' appeared previously in this namespace
tambem continua aparecendo o erro na linha .open()
Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada)
seguem dados de conexão com o banco quando abro o sql server
Server type: Database Engine
Server name: KNUPP
Authentication: Windows Authentication
User name: knupp\adm
Password: <vazio>
database: siged
Segue a rotina que estou usando
SqlConnection conn = new SqlConnection(@"Data Source =localhost\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco 2\siged.mdf; Database = siged; Trusted_Connection =Yes; ");
SqlCommand comm = new SqlCommand();
comm.Connection = conn;
comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)";
comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text));
comm.Parameters.AddWithValue("@nome", textBox2.Text);
comm.Parameters.AddWithValue("@bandeira", comboBox1.Text);
comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1);
comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text));
comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text));
comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text));
comm.Parameters.AddWithValue("@tipo", comboBox2.Text);
conn.Open();
comm.ExecuteNonQuery();
conn.Close();
faz diferença no endereço do banco eu ter um espaço: C:\Users\adm\Documents\Banco 2\siged.mdf
vlw
-
Pessoal to com um problema, nunca usei essas duas ferramentas. to precisando fazer conexão com o banco pra salvar alguns dados vasculhei td na net e no forum e não to conseguindo fazer conexão, o codigo usado foi:
SqlConnection conn = new SqlConnection(@"Data Source =.\SQLExpress; AttachDbFilename =C:\Users\adm\Documents\Banco\siged.mdf; Trusted_Connection =Yes; ");
SqlCommand comm = new SqlCommand();
comm.Connection = conn;
comm.CommandText = "INSERT INTO navio (imo, nome, bandeira, dataConstrucao, dwt, tamanho, poroes, tipo) VALUES(@imo, @nome, @bandeira, @dataConstrucao, @dwt, @tamanho, @poroes, @tipo)";
comm.Parameters.AddWithValue("@imo", Convert.ToInt32(textBox1.Text));
comm.Parameters.AddWithValue("@nome", textBox2.Text);
comm.Parameters.AddWithValue("@bandeira", comboBox1.Text);
comm.Parameters.AddWithValue("@dataConstrucao", maskedTextBox1);
comm.Parameters.AddWithValue("@dwt", Convert.ToInt32(textBox3.Text));
comm.Parameters.AddWithValue("@tamanho", Convert.ToDouble(textBox4.Text));
comm.Parameters.AddWithValue("@poroes", Convert.ToInt32(textBox5.Text));
comm.Parameters.AddWithValue("@tipo", comboBox2.Text);
conn.Open();
comm.ExecuteNonQuery();
conn.Close();
o erro ocorre no evento open:
Erro de rede ou específico à instância ao estabelecer conexão com o SQL Server. O servidor não foi encontrado ou não estava acessível. Verifique se o nome da instância está correto e se o SQL Server está configurado para permitir conexões remotas. (provider: Interfaces de Rede SQL, error: 26 - Erro ao Localizar Servidor/Instância Especificada)
se alguém tiver algum link ou tutorial pra me ajudar eu vou agradecer muito.
vlw
-
pesquise sobre a função DateDiff, ela retorna diferenças entre datas no formato que você quiser (ano, mês, dia, hora, minuto...).
-
tente escrever seu codigo dentro do evento active do form e não no initialize.
-
Pessoal to com um problema, criei o codigo abaixo para serializar uma matriz
File arquivo = new File("banco.xxx");
try{
FileOutputStream fluxoArquivo = new FileOutputStream(arquivo);
ObjectOutputStream fluxoObjeto = new ObjectOutputStream(fluxoArquivo);
fluxoObjeto.writeObject(matriz);
fluxoObjeto.writeObject(arquivo);
fluxoObjeto.close();
}catch(Exception e){
}
até ai td bem o problema é, como faço pra pegar essa matriz de volta? tentei isso aqui
String [][] matriz = new String [100][4];
try{
File arquivo = new File("teste.abc");
FileInputStream fluxoArquivo = new FileInputStream(arquivo);
ObjectInputStream fluxoObjeto = new ObjectInputStream(fluxoArquivo);
matriz[][] = fluxoObjeto.readObject(); }
catch(Exception e){
}
tá dando erro na linha em negrito, alguém sabe me ajudar?
-
cara achei essa função perdida aqui comigo, ve se funciona, ela resolveria tudo que você precisa
Dim destino1, destino2, arquivo, gerente As String
Dim OutApp As Object, oOutlookMessage As Object
'Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
'endereco = "C:\Documents and Settings\administrador\Desktop\"
'arquivo = "imagem.jpg"
destino1 = "destino1@abc.com.br"
destino2 = ""destino2@abc.com.br; destino3@abc.com.br"
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = destino1
.CC = destino2
.BCC = ""
.Subject = "Teste de envio"
.Body = "teste"
'verificar se o arquivo está no local informado.
'.Attachments.Add (endereco & arquivo)
.Send
End With
Application.DisplayAlerts = True
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Emails enviados com Sucesso.", vbInformation, "Envio de Emails"
-
A função abaixo lista todos os arquivos de uma pasta, é só adapta-la para sua necessidade:
Public Function Varre(endereço)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set aqui = FSO.GetFolder(endereço)
For Each Arquivo In aqui.Files
Aux1 = Len(Arquivo.Path) - InStr(1, StrReverse(Arquivo.Path), "\")
Range("A" & linha).Value = Mid(Arquivo.Path, 1, Aux1 + 1)
Range("A" & linha).Value = Arquivo.Name
Range("B" & linha).Value = Arquivo.Size
linha = linha + 1
Next
For Each Pasta In aqui.SubFolders
Varre (Pasta.Path)
Next
End Function
crie um botão e dentro dele chame a função passando o endereço a ser analizado:
linha = 1
Call Varre("C:\Documents and Settings\administrador\Desktop")
-
Cara, esse código foi o mais completo que achei, pois ele abre o outlook caso esteja fechado e tira um aviso de segurança do outlook, mas ele resolve seu problema parcialmente:
Dim texto As String
Dim oOutlookApp As Object, oOutlookMessage As Object
Dim mySafeEmail As Redemption.SafeMailItem
Set oOutlookApp = CreateObject("Outlook.Application")
oOutlookApp.Session.Logon
Set oOutlookMessage = oOutlookApp.CreateItem(olMailItem)
'faz referencia a DLL instalada
Set mySafeEmail = CreateObject("Redemption.SafeMailItem")
contato = "destinatario@abc.com.br"
texto = "Bom dia," & RNC & "," & vbNewLine & vbNewLine & _
"Segue teste de e-mail."
With mySafeEmail
.Item = oOutlookMessage
.Subject = "Teste "
.Recipients.Add contato
.Recipients.ResolveAll
.Body = texto
.Send
End With
conforme falei ao enviar um e-mail do excel pelo outlook, o mesmo identificará e dará uma msg de aviso, para que essa mensagem não aconteça, você terá que baixar uma DLL chamada "Redemption.dll" e registrá-la no windows, depois disso você vai ter que ir no ambiente do VBA no menu Ferramentas e entrar na opção referências e marcar a opção Redemption Outlook and MAPI COM Library.
Como nem tudo é perfeito, esse codigo resolve parcilamente seus problemas, pois nele na época eu não conseguia fazer enviar para mais de uma pessoa por vez, como pra mim isso não era necessário eu não pesquisei mais.
Caso consiga utilizar a opção CC e CCO dentro desse código, poste ai.
-
Galera depois de pesquisar um pouco mais, achei esse site http://www.macoratti.net/lstview2.htm, as dicas que precisava, se alguém quiser usar uma listview e não souber, ta ai a dica.
-
-
Obrigado Jonathan! case sensitive isso me fez perder quaser um dia inteiro!!
Vlw mesmo!
-
Segue:
1>------ Build started: Project: teste, Configuration: Debug Win32 ------
1>Compiling...
1>teste.cpp
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(29) : error C4430: missing type specifier - int assumed. Note: C++ does not support default-int
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(30) : warning C4183: 'carro': missing return type; assumed to be a member function returning 'int'
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(31) : error C4430: missing type specifier - int assumed. Note: C++ does not support default-int
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(34) : warning C4183: 'carro': missing return type; assumed to be a member function returning 'int'
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(38) : error C2078: too many initializers
1>c:\users\knup\desktop\temp\teste\teste\teste.cpp(38) : error C2440: 'initializing' : cannot convert from 'const char [4]' to 'Carro'
1> No constructor could take the source type, or constructor overload resolution was ambiguous
1>Build log was saved at "file://c:\Users\Knup\Desktop\Temp\teste\teste\Debug\BuildLog.htm"
1>teste - 4 error(s), 2 warning(s)
========== Build: 0 succeeded, 1 failed, 0 up-to-date, 0 skipped ==========
-
Editei o cod estava muito grande
Galera estou com problemas, seguinte nunca tinha visto C++ até a um mês atrás, conheço de programação e lógica mas em outras linguagens.
O problema é o seguinte tenho que fazer um trabalho (facul) e preciso trabalhar com construtores, mas também preciso utilizar os métodos set e get, simples? não está sendo, com todas as minha limitações (trabalhar com char em c++ é chato) eu cheguei ao seguinte código:
#include "stdafx.h" #include <string.h> #include <iostream> using namespace std; class Carro{ public: char *marca, *modelo; int ano; void setMarcaCarro(char *marca){ this->marca = marca; } char* getMarcaCarro(){ return this->marca; } void setModCarro(char *modelo){ this->modelo = modelo; } char* getModCarro(){ return this->modelo; } void setAnoCarro(int ano){ this->ano = ano; } int getAnoCarro(){ return this->ano; } carro( ){ } carro(char *marca, char *modelo){ this->marca = marca; this->modelo = modelo; } }; int main(){ Carro c1; Carro c2("volks","Gol"); char marca[30], modelo[20]; int ano; system("cls"); cout << endl << "Informe a marca do Veiculo: "; cin >> marca; c1.setMarcaCarro(marca); cout << endl << "Informe o modelo do Veiculo: "; cin >> modelo; c1.setModCarro(modelo); cout << endl << "Informe o Ano do Veiculo (9999): "; cin >> ano; c1.setAnoCarro(ano); cout << endl << endl; cout << " ** Caracteristicas do veiculo ** " << endl; cout << "Marca: " << c1.getMarcaCarro() << endl; cout << "Modelo: " << c1.getModCarro() << endl; cout << "Ano: " << c1.getAnoCarro() << endl; cout << endl << endl; cout << endl << "Informe o Ano do Veiculo: "; cin >> ano; c2.setAnoCarro(ano); cout << endl << endl; cout << " ** Caracteristicas do veiculo ** " << endl; cout << "Marca: " << c2.getMarcaCarro() << endl; cout << "Modelo: " << c2.getModCarro() << endl; cout << "Ano: " << c2.getAnoCarro() << endl; cout << endl << endl; system("pause"); return 0; }
Bom o código funciona perfeitamente sem as partes comentadas, quando coloco elas , tudo vira uma zona, tenho um exemplo bem parecido e funciona perfeitamente.
minha intenção é digitar todos os dados do primeiro veiculo, e do segundo em diante e só digito algumas caracteristicas e ele atravez do metodos contrutores completa o resto, isso 5 vezes ( o cod é muito maior que o que esta ai).
Desde já obrigado pela ajuda.
enviar imagem do excel para o outlook
em VBA
Postado
Pessoal, consegui dessa forma, caso ajude alguém.
Aqui eu salvo a imagem no computador
Dim xShape As Shape
Dim oSheet As Worksheet
Dim oTemp As ChartObject
Dim oChartArea As Chart
Dim iFile as String
Set oSheet = ActiveSheet
Set xShape = oSheet.Shapes.Item("imagem1")
iFile = “C:\temp\QR_Code.jpeg”
xShape.CopyPicture
Set oTemp = oSheet.ChartObjects.Add(0, 0, xShape.Width, xShape.Height)
Set oChartArea = oTemp.Chart
oTemp.Activate
With oChartArea
.ChartArea.Select
.Paste
.Export (iFile)
End With
oTemp.Delete
Depois no .HTMLBody eu chamo o endereço pelo "<img src = " & iFile & ">"
Não sei se é a forma mais simples, mas funcionou.