Torna indietro   Hardware Upgrade Forum > Software > Programmazione

L'evoluzione delle CPU Ryzen, con Robert Hallock di AMD
L'evoluzione delle CPU Ryzen, con Robert Hallock di AMD
Assieme a Robert Hallock, direttore del Technical Marketing di AMD, analizziamo le scelte portate avanti da AMD nello sviluppo dei core Zen dei processori Ryzen e la competizione con le CPU Intel di 12-esima generazione con architettura ibrida
Imou Cell 2: una videocamera di sorveglianza wireless e in QHD
Imou Cell 2: una videocamera di sorveglianza wireless e in QHD
Abbiamo provato la videocamera di sorveglianza del produttore cinese Imou, che sempre più sta guadagnando quote di mercato e considerazione nel suo settore. Ecco punti di forza e di debolezza di questo sistema per interni ed esterni
Recensione Motorola edge 30: è lui il midrange più conveniente (per ora)
Recensione Motorola edge 30: è lui il midrange più conveniente (per ora)
Fino alla fine di maggio verrà proposto a 399€ in Italia, un prezzo decisamente concorrenziale. Motorola edge 30 è il nuovo midrange evoluto che miscela un'ergonomia a livelli altissimo con un peso di circa 150 grammi e un software molto vicino alla versione stock di Android 12. In questo momento è difficile consigliare uno smartphone diverso intorno ai 400 euro
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 07-01-2022, 08:00   #1
Dbz
Senior Member
 
L'Avatar di Dbz
 
Iscritto dal: Sep 2009
Città: Pordenone
Messaggi: 1245
[Visual Basic] email sender

ciao a tutti ho sviluppato un codice per mandare delle email caricate su un foglio di lavoro excel. Posto il codice:

Codice PHP:
Dim indirizzo As String
Dim oggetto 
As String
Dim testo 
As String
Dim appoutlook 
As New Outlook.Application
Dim mail 
As Outlook.MailItem
Dim allegato 
As String
Dim x 
As Integer
Dim clienti 
As Integer
Dim miamail 
As String

miamail 
Range("A1")

clienti InputBox("inserisci il numero di clienti/fornitori da circolarizzare")

For 
1 To clienti

    Set appoutlook 
CreateObject("outlook.application")
    
Set mail appoutlook.CreateItem(olMailItem)

    
allegato Sheets(1).Cells(x5)
    
indirizzo Sheets(1).Cells(x2)
    
oggetto Sheets(1).Cells(x3)
    
testo Sheets(1).Cells(x4)

    
With mail
    
.SendUsingAccount Session.Accounts(miamail)
    .
To indirizzo
    
.Subject oggetto
    
.Body testo
    
.Attachments.Add (allegato)
    .
Send
End With

Next x

End Sub 
Vorrei evitare di inserire il numero di mail all'inizio, in altre parole vorrei utilizzare il ciclo For Each, però non so come si usa qualcuno può spiegarmi come fare? grazie
Dbz è offline   Rispondi citando il messaggio o parte di esso
Old 07-01-2022, 08:57   #2
wingman87
Senior Member
 
Iscritto dal: Nov 2005
Messaggi: 2693
Potresti usare un ciclo While true (cioè infinito) e poi uscire quando uno dei campi obbligatori non è valorizzato, ad esempio "indirizzo" con Exit While.

Il foreach lo si può usare su una collezione di oggetti, qui non so se hai modo a priori di estrarre le righe excel (e magari solo quelle valorizzate). Nel caso scriveresti una cosa del tipo
Codice:
For Each row In rows
    ...
Next row
wingman87 è offline   Rispondi citando il messaggio o parte di esso
Old 09-01-2022, 17:13   #3
Dbz
Senior Member
 
L'Avatar di Dbz
 
Iscritto dal: Sep 2009
Città: Pordenone
Messaggi: 1245
Quote:
Originariamente inviato da wingman87 Guarda i messaggi
Potresti usare un ciclo While true (cioè infinito) e poi uscire quando uno dei campi obbligatori non è valorizzato, ad esempio "indirizzo" con Exit While.

Il foreach lo si può usare su una collezione di oggetti, qui non so se hai modo a priori di estrarre le righe excel (e magari solo quelle valorizzate). Nel caso scriveresti una cosa del tipo
Codice:
For Each row In rows
    ...
Next row
Grazie! ho risolto
Dbz è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


L'evoluzione delle CPU Ryzen, con Robert Hallock di AMD L'evoluzione delle CPU Ryzen, con Robert Hallock...
Imou Cell 2: una videocamera di sorveglianza wireless e in QHD Imou Cell 2: una videocamera di sorveglianza wir...
Recensione Motorola edge 30: è lui il midrange più conveniente (per ora) Recensione Motorola edge 30: è lui il mid...
Fujitsu Lifebook U9311X: il 2-in-1 per il professionista Fujitsu Lifebook U9311X: il 2-in-1 per il profes...
Super Device, cos'è e come funziona la tecnologia che unisce l'ecosistema HUAWEI Super Device, cos'è e come funziona la te...
Xiaomi punta tutto sulle fotocamere: uff...
Oggi quasi tutti gli iPad sono al prezzo...
LG Week: crollo dei prezzi (fino a 1000 ...
Voyager a1600: il primo notebook di Cors...
Continua il successo di BorgWarner: moto...
Microsoft annuncia una svolta significat...
LG OLED in super offerta, ma anche DJI, ...
Mercedes punta all'elettrico anche per l...
WhatsApp non funzionerà più...
Motherboard AM5 per Ryzen 7000: ecco i c...
Ryzen 7000 in autunno: prestazioni singl...
AMD Mendocino con Zen 2 e RDNA 2 per i n...
L'iPhone si può usare come genera...
EA verso la vendita o la fusione: tratta...
Bici elettriche ELEEK e Delfast usate ne...
K-Lite Codec Pack Basic
Mozilla Thunderbird 91
Firefox 100
K-Lite Mega Codec Pack
K-Lite Codec Pack Full
K-Lite Codec Pack Standard
Dropbox
The Bat! Home Edition
Chromium
Skype
iTunes 12
K-Lite Codec Tweak Tool
PassMark PerformanceTest
Opera Portable
Opera 87
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 10:36.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Served by www1v